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ABSTRACT 

This  thesis  describes  EMBARK,  a  system  of  computer  programs 
developed  to  automate  one  of  the  phases  of  embarkation  planning. 
These  programs  are  designed  to  accumulate  the  information  and  produce 
the  loading  forms  required  to  prepare  the  loading  plan  for  a  Marine 
Corps  amphibious  landing. 

The  system  will  print  the  following  documents:   Unit  Cargo 
Manifest,  Cargo  and  Loading  Analysis  Form,  Vehicle  Summary  and 
Priority  Table,  and  Unit  Personnel  and  Tonnage  Table. 

In  the  past,  these  forms  were  prepared  manually  from  information 
accumulated  manually:   a  slow,  laborious  process.   Today,  the  time 
element  in  warfare  has  become  critical.  Amphibious  operations  which 
formerly  could  be  planned  and  executed  over  a  period  of  months  must 
now  be  accomplished  in  weeks.   In  order  to  reduce  the  planning  and 
execution  times,  it  is  necessary  to  mechanize  the  preparation  of  the 
loading  forms.   The  EMBARK  system  was  developed  to  accumulate  the 
necessary  information,  process  it,  and  produce  the  loading  forms. 
The  methods  of  the  system  are  described  and  illustrated.   Finally, 
the  use  of  computers  to  solve  other  amphibious  planning  problems  is 
considered. 
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TABLE  OF  SYMBOLS,  ABBREVIATIONS  AND  SPECIAL  TERMS 

BCD  --  Binary  coded  data 

CUBE  --  Number  of  cubic  feet  required  aboard  ship  for  an  item 

Floating  Dump  --  High  priority  (emergency-type)  supplies,  usually 
Class  V  and  medical 

Heavy  Lift  --  Any  single  cargo  lift,  exclusive  of  vehicles ,  weigh= 
ing  over  10,000  pounds 

Loading  Forms 

UCM  --  The  Unit  Cargo  Manifest 
C&LA  --  The  Cargo  and  Loading  Analysis  Form 
VS&PT  --  The  Vehicle  Summary  and  Priority  Table 
UP&TT  --  The  Unit  and  Personnel  and  Tonnage  Table 

LPH  --  Converted  aircraft  carriers  used  by  USMC  in  amphibious 

operations  as  assault  ships  (designated  Landing  Platform 
Helicopter) 

Material  Classes 

Class  1    —  Food  and  water 

Class  II   --  Issued  equipment 

Class  III   --  Petroleum,  oils  and  lubricants 

Class  IV   --  Special  equipment 

Class  V    --  Ammunition 

Measurement  Tons  --  A  measurement  of  the  volume  required  for  cargo „ 

One  measurement  ton  equals  40  cubic  feet. 

Mobile-Loaded  Cargo  --  Cargo  loaded  in  vehicles 

POL  --  Petroleum,  oils  and  lubricants 

Short  Tons  --  A  measurement  of  cargo  weight  obtained  by  dividing  the 
total  number  of  pounds  of  cargo  by  2000.   One  short 
ton  equals  2000  pounds. 

Standard  Cargo  --  All  cargo  not  falling  into  the  heavy  lift  or  mobile 

loaded  categories 

T/A  --  USMC  Table  of  Allowances  -  The  source  of  allowance  information 
for  items  authorized  the  Fleet  Marine  Force  and  organized 
Marine  Corps  Reserve  Units 

T/A  Number  --  A  unique  number  assigned  to  each  item  of  supplies  and 
equipment 


T/E  --  USMC  Tables  of  Equipment  -  items  of  equipment  specifically 
assigned  to  each  organization 

T/E  Number  --  A  unique  number  assigned  to  identify  a  type  of  organization 

T/0  --  USMC  Tables  of  Organization  -  personnel  assigned  to  each 
organization  broken  down  by  rank  and  major  operational 
specialty 

T/0  Number  --  The  same  number  as  the  T/E  number  for  the  particular 
organization 

Unitized  Cargo  --  Cargo  which  has  been  grouped  on  a  platform  (pallet) 

or  in  a  container  in  such  a  way  as  to  form  a  single 
unit  weighing  less  than  10,000  pounds 

Vehicle  --  Any  wheeled,  track-laying,  or  combined  wheeled  and  track- 
laying  equipment.   In  addition,  other  equipment  such  as 
skid-mounted  generators  which  require  stowage  on  an  area 
(square  foot)  basis 
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SECTION  I 
INTRODUCTION 

The  success  of  any  amphibious  operation  is  dependent  in  a  large 
measure  on  complete  embarkation  planning  which  involves  all  those 
actions  necessary  to  assure  timely  and  effective  loading  of  the 
amphibious  task  force  |_2j. 

The  outstanding  characteristic  of  successful  amphibious  operations 
is  the  rapid  and  effective  manner  in  which  assault  troops  establish 
themselves  ashore.   The  power  and  size  of  the  landing  force  must  be 
expanded  to  the  maximum  in  the  shortest  possible  time.  This  requires 
a  rapid,  yet  orderly  buildup  of  men  and  material.   The  extent  to  which 
this  can  be  done  depends  primarily  on  the  manner  in  which  the  ships 
have  been  loaded.  Also  a  proper  loading  increases  the  inherent  flexi° 
bility  of  the  amphibious  task  force  and  is  a  key  factor  in  assuring 
success.   It  is  the  purpose  of  this  paper  to  provide  a  system  using 
electronic  data  processing  (EDP)  techniques  for  the  rapid  and  accurate 
preparation  of  documents  required  in  the  embarkation  planning  and 
loading  phase  of  an  amphibious  operation.   This  system  of  programs 
will  be  called  EMBARK. 

As  an  introduction  to  the  EMBARK  system,  the  four  cardinal 
principles  of  embarkation  planning  will  be  outlined. 

A.  Personnel,  equipment  and  supplies  must  be  loaded  in  such  a 
manner  that  they  can  be  unloaded  at  the  time  and  in  the  correct 
sequence  required  to  support  operations  ashore. 

B.  Troops  should  not  be  separated  from  their  combat  equipment 
and  supplies. 


C.  Unloading  must  be  planned  to  proceed  rapidly  in  the  beach  area, 

D.  Critical  units  and  supplies  must  be  dispersed  among  several 
ships. 

Some  of  the  other  considerations  which  affect  the  embarkation 
plan  are: 

1.  Mission  of  the  force. 

2.  Limiting  dates  of  the  embarkation,  movement  and  assault 
phases. 

3.  The  organization  for  the  embarkation  of  the  landing  force 
must  be  compatible  with  the  plan  for  the  ship=to-shore 
movement  which,  in  turn,  must  support  the  scheme  of 
maneuver. 

4.  Size  and  characteristics  of  the  troops  and  naval  forces 
involved.   This  includes  the  availability  and  character- 
istics of  shipping,  and  quantity  and  types  of  material 
to  be  embarked. 

5.  Embarkation  areas  and  points  must  be  selected. 

6.  Marshalling  areas  may  be  required  when  camp  areas  are 
so  located  that  movement  to  embarkation  areas  cannot  be 
accomplished  without  interruption. 

7.  The  feasibility  and  desirability  of  using  helicopters 
to  embark  the  embarkation  teams  assigned  to  amphibious 
assault  ships. 

Effective  embarkation  planning  is  dependent  on  the  early  receipt 
of  the  above  information  from  higher  authority.   Detailed  planning 
begins  with  the  determination  by  the  Landing  Force  Commander  of  the 


embarkation  team  composition,  ship  assignment  and  designation  of  the 
Embarkation  Team  Officers. 

The  loading  plan  for  each  ship  is  prepared  by  the  Team  Embark- 
ation Officer  under  the  supervision  of  the  Embarkation  Commander. 
The  plans  must  be  prepared  promptly  and  accurately.  All  the  figures 
shown  in  the  wt  (lbs)  . s  cu.  ft.,  and  sq.  ft.  columns  on  the  loading 
forms  are  the  actual  weight,  volume  and  area  of  the  items  of  cargo 
as  loaded  aboard  ship. 

In  this  paper s  when  the  term  "loading"  is  used,  it  refers  to 
"combat  loading."  Combat  loading  gives  primary  consideration  to  the 
facility  with  which  troops,  equipment  and  supplies  can  be  unloaded 
for  combat,  rather  than  to  the  economical  use  of  ship  space.  Also, 
in  combat  loading  an  attempt  is  made  to  load  the  ships  so  as  to  pro- 
vide as  much  flexibility  as  possible  to  meet  changes  in  plan  or  other 
emergencies. 

Loading  serial  numbers  are  used  to  identify  elements  of  the 

landing  force  which  are  landed  prior  to  the  general  unloading.  These 

serial  numbers  (which  are  not  a  statement  of  priority,  but  a  means 

of  identification)  are  published  in  a  Serial  Assignment  Table  which 

forms  part  of  the  landing  plan.  A  single  serial  number  is  assigned 

to  each  unit,  including  its  equipment  (except  for  floating  damps), 

which  for  tactical  and  logistic  reasons  is  to  be  embarked  entirely 

in  one  ship;  landed  as  a  unit  at  one  beach  or  helicopter  landing  zone; 

and  landed  at  approximately  the  same  time.  A  unit's  serial  number 

will  be  referred  to  hereafter  as  a  Serial. 

The  Table  of  Symbols,  Abbreviations  and  Special  Terms  provides 
a  consolidated  list  of  all  special  terms  used  in  the  text. 


To  be  effective,  each  Serial  must  be  loaded  in  a  way  that  permits 
its  simultaneous  unloading  [8  /.   To  achieve  simultaneous  unloading  of 
all  elements  of  a  Serial  the  Embarkation  Officer  must  spread  the 
Serial  throughout  the  various  holds  of  the  ship.   Serials ,  therefore, 
must  be  composed  realistically. 

The  planners  who  organize  the  Serials  must  be  careful  to  avoid 
improper  assignment.  If  too  many  items  are  assigned  to  one  serial 
number  the  means  of  landing  will  be  held  up  until  the  entire  serial 
group  is  unloaded  or  the  Serial  will  be  unloaded  in  increments 5  both 
are  undesirable  {5}  .  In  the  EMBARK  system,  Serials  will  be  entered 
manually  on  the  VS&PT,  after  its  preparation  by  the  computer,  using 
the  information  in  the  Serial  Assignment  Table  of  the  landing  plan. 

The  various  documents  prepared  by  the  EMBARK  system  of  the  pro= 
grams  (shown  in  detail  in  Section  III)  will  now  be  described  briefly. 
Each  unit  or  detachment  embarking  men,  equipment  or  supplies  aboard 
a  ship  prepares  four  loading  forms? 

1.  Unit  Cargo  Manifest; 

2.  Cargo  and  Loading  Analysis  Form; 

3.  Vehicle  Summary  and  Priority  Table; 

4.  Unit  Personnel  and  Tonnage  Table. 

With  the  exception  of  the  Unit  Cargo  Manifest,  these  forms  are  sub- 
mitted to  the  Embarkation  Team  Commander  for  incorporation  in  the 
loading  plan. 

A.   THE  UNIT  CARGO  MANIFEST  (UCM)  is  the  basic  form  for  gathering 
accurate  data  on  all  cargo  other  than  vehicles.   It  is  the  basis  for 
preparing  the  Cargo  and  Loading  Analysis  form.   It  also  provides  a 
record  of  loading  data  on  each  container,  pallet  and  piece  of  equipment 
(less  vehicles) .  , 


B.  THE  CARGO  AND  LOADING  ANALYSIS  FORM  (C&LA)  provides  a  detailed 
breakdown  of  the  cargo  (less  vehicles)  by  type,  weight  and  volume.   It 
shows  which  cargo  is  stowed  as  standard  cargo,  which  is  unitized,  any 
heavy  lifts,  and  which  cargo  is  loaded  in  vehicles.   The  number  of 
square  feet  involved  is  given  for  unitized  cargo  and  heavy  lifts. 

C.  THE  VEHICLE  SUMMARY  AND  PRIORITY  TABLE  (VS&PT)  lists  all 
vehicles  by  priority  for  unloading,  including  the  dimensions  and  weight 
for  each  vehicle.   Included  in  this  form  are  the  volume  and  weight  of 
mobile-loaded  cargo,  i.e.,  cargo  loaded  in  vehicles. 

D.  THE  UNIT  PERSONNEL  AND  TONNAGE  TABLE  (UP&TT)  is  a  recapitu- 
lation of  the  information  shown  in  the  Cargo  Loading  Analysis,  the 
Vehicle  Summary  and  Priority  Table,  plus  a  breakdown  by  the  number 
and  rank  of  personnel  to  be  embarked.   The  UP&TT  is  subdivided  to 
reflect  the  following  categories  of  embarkation  data:   (1)  personnels, 
(2)  Class  I,  (3)  authorized  allowances  (Classes  II  and  IV),  (4)  Re- 
plenishment (Classes  II  and  IV),  (5)  petroleum,  oil,  and  lubricants 
(POL  -  Class  III) ,  (6)  ammunition  (Class  V)   14  ,  (7)  other  supplies 
and  (8)  vehicles. 

Aviation  supplies  and  equipment  are  listed  separately  under  the 
various  category  headings  with  a  detailed  breakdown  being  given  on 
the  reverse  side  of  the  UP&TT  in  the  form  of  a  SUPPLEMENTAL  iTP&TT 
FOR  AVIATION  MATERIALS . 

Using  as  a  basis  these  forms  prepared  by  the  Unit  Embarkation 
Officers,  consolidated  tables  of  the  foregoing  are  made  up  for  all 
units  embarked  in  a  single  ship.  The  detailed  stowage  and  loading 
plan  is  then  prepared  from  these  tables  and  lists. 


The  following  diagrams  (Figure  1)  indicate  the  methods  used  by 
the  EMBARK  system  to  prepare  the  necessary  tables  and  lists  required 
in  embarkation  planning. 
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Figure  1  (cont.) 


SECTION  II 
SEQUENCE  OF  PLANNING 

Following  the  receipt  of  the  initiating  directive  for  an  amphib- 
ious operation,  the  landing  force  embarkation  planning  begins  at  all 
echelons  of  command  and  proceeds  concurrently.  Usually,  the  major 
steps  are  accomplished  in  the  following  sequence: 

A.  Establishment  of  liaison  between  corresponding  naval  and 
troop  levels  of  command. 

B.  Provision  of  planning  data  by  the  Amphibious  Task  Force 
Commander  concerning  the  personnel  and  material  of  naval  and  other 
forces  to  be  embarked  with  the  landing  force. 

C.  Determination  by  the  Landing  Force  Commander  of  his  assault 
and  follow-up  shipping  requirements,  and  submission  of  these  require- 
ments to  the  Amphibious  Task  Force  Commander. 

D.  Allocation  of  shipping  by  the  Amphibious  Task  Force  Commander, 

E.  Distribution  of  each  ship*s  loading  characteristics  to  the 
Landing  Force  Commander  by  the  Amphibious  Task  Force  Commander. 

F.  Establishment  of  the  organizations  for  embarkation  by  the 
Landing  Force  Commander,  including  the  designation  of  the  Embarkation 
Team  Commanders. 

G.  Establishment  of  the  navy  organization  for  the  embarkation 
by  the  Amphibious  Task  Force  Commander. 

H.  Allocation  of  shipping  to  subordinate  echelons  of  the  landing 
force  by  the  Landing  Force  Commander. 

I.   Selection  and  preparation  of  the  embarkation  areas. 


J.   Determination  of  the  control,  security  and  communications 
facilities  required  during  embarkation. 

K.   Landing  Force  Commander  provides  information  on  the  number 
of  days  of  fuel  required,  amount  and  type  of  ammunition,  and  the 
objectives  assigned  to  each  Embarkation  Team  Commander.   This  enables 
the  Team  Commander  to  decide  what  equipment  he  will  require. 

L.   Development  of  berthing  and  loading  schedules, and  schedules 
for  movement  of  personnel  and  material  to  embarkation  areas. 

M.   Preparation,  review,  approval  and  promulgation  of  the  detailed 
embarkation  and  loading  plans. 

The  EMBARK  system  was  designed  to  facilitate  this  final  phase 
of  planning.   The  system  will  accumulate  the  information  required  to 
prepare  the  Unit  Cargo  Manifest  (UCM) ,  Unit  Personnel  and  Tonnage 
Tables  (UP&TT) ,  Cargo  Loading  and  Analysis  Form  (C&LA) ,  and  Vehicle 
Summary  and  Priority  Table  (VS&PT) .   It  will  produce  the  forms  for 
each  unit,  and  the  unit  forms  can  be  used  to  prepare  the  consolidated 
forms  for  the  loading  plan.   Figure  2  shows  the  sequence  of  preparation 
and  interrelationships  of  the  loading  forms,  tables  and  diagrams  com- 
prising the  completed  loading  plan. 

The  complete  loading  plans  for  each  ship  consist  of  the  following 
forms,  tables  and  diagrams: 

1.   The  cover  page  of  the  loading  plan  gives  the  name  of  the 
ship  and  lists  the  embarking  troop  units.   The  Embarkation  Team 
Commander  indicates  his  approval  of  the  tentative  plan  by  signing 
this  cover  page.   The  completed  plan  is  then  delivered  to  the 
Commanding  Officer  of  the  ship,  who,  in  turn,  indicates  his  approval. 
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2.  The  Consolidated  Embarkation  and  Tonnage  Table  lists  all 
units  embarked  in  a  single  ship  together  with  the  total  personnel, 
total  volume  (cu.  ft),  area  (sq.  ft.)  and  total  number  of  short  tons 
of  cargo. 

3.  The  Consolidated  Unit  Personnel  and  Tonnage  Table  is  a 
consolidation  of  the  individual  unit  UP&TT's  in  the  same  format  as 

the  individual  tables.   It  provides  an  accurate  tabulation  of  personnel 
to  be  embarked  and  the  exact  amount  and  type  of  cargo  to  be  loaded. 

4.  The  Consolidated  Cargo  and  Loading  Analysis  is  a  con- 
solidation of  the  unit  C&LA's.   It  provides  the  basis  for  stowage 
plans.   In  its  final  form  the  consolidated  C&LA  is,  in  fact,  a  com- 
plete listing  of  detailed  stowage  information  of  all  cargo  except 
vehicles.   It  is  of  vital  importance  to  logistic  control  personnel 
during  the  ship-to-shore  movement  since  it  shows  the  stowage  location 
of  all  cargo  for  each  ship. 

5.  The  Consolidated  Vehicle  Summary  and  Priority  Table  is 
a  listing  according  to  the  unloading  priority  of  all  vehicles  to  be 
embarked  in  the  ship.   The  unloading  priority  is  determined  by  the 
Embarkation  Team  Commander  after  consideration  and  reconciliation  of 
the  unloading  priorities  desired  by  each  embarking  unit.  He  must  also 
ensure  that  the  priorities  are  in  accordance  with  the  priorities 
established  by  the  landing  plan.   The  Consolidated  VS&PT  is  the  basis 
for  vehicle  stowage  plans.   It  is  of  value  to  persons  concerned  with 
the  loading,  unloading,  and  logistic  control  during  the  ship-to-shore 
movement . 
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6.  The  Consolidated  Vehicle  Table  is  a  summary  of  all  vehicles 
listed  on  the  Consolidated  VS&PT  by  types  and  by  units  to  which  they 
belong.   It  can  be  prepared  easily  from  the  unit  VS&PT  listings  pro- 
duced by  EMBARKD. 

7.  Stowage  diagrams  show  graphically  the  placement  of  cargo 
aboard  ship.   These  diagrams  give  the  exact  location  of  vehicles  and 
cargo  within  each  cargo  compartment.   Their  preparation  is  greatly 
simplified  using  the  information  provided  by  EMBARKD. 
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SECTION  III 

THE  EMBARK  SYSTEM 

The  EMBARK  system  consists  actually  of  three  computer  programs 

(EMBARKB,MOUNTOUT  and  TABLE)  which  calculate  and  print  summary  data 

in  the  form  required  for  preparation  of  the  detailed  loading  plans  of 

an  amphibious  operation. 

The  main  program,  EMBARKD,  which  prepares  the  forms  uses  the 

following  major  subroutines: 

NAME  PURPOSE 

UCM  Prepares  the  Unit  Cargo  Manifest 

VSP  Prepares  and  prints  the  Vehicle 

Summary  and  Priority  Table 

UPT  Prepares  and  prints  the  Unit  Per= 

sonne 1  and  Tonnage  Table 

CANDLA  Prepares  Cargo  and  Loading  Analysis 

These  subroutines ,  in  turn,  use  one  or  more  of  the  following  minor 

subroutines: 

CLASS  V  Computes  ammunition  requirements 

RATIONS  Computes  ration  requirements 

WATER  Computes  water  requirements 

PETROL  Computes  petroleum,  oil  and 

lubricant  requirements 

EQUIP  Computes  equipment  requirements 

WUCM  Prints  Unit  Cargo  Manifest 

WCANDLA  Prints  Cargo  Loading  and  Analysis 

Form 

The  two  additional  programs  provided  by  the  system  are  MOUNT'OUT,  which 

will  print  out  a  Table  of  Equipment  for  an  infantry  regiment  and  TABLE, 
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which  will  print-out  the  complete  USMC  Table  of  Allowances.  Each 
program  can  write  a  report  on  the  BCD  output  tape.   (The  tape  assign- 
ments are  as  shown  in  Appendix  A.) 

The  EMBARK  system  was  programmed  in  Fortran  II  language  and  was 
designed  to  operate  in  conjunction  with  the  Control  Data  Corporation 
(CDC)  1604  computer  operating  system  called  "Fortran  '60  Monitor"  /.3J. 
EMBARK  was  programmed  for  a  CDC  1604  computer  having  four  tape  units 
and  off-line,  card-to-tape,  tape-to-printer  facilities.   The  system 
requires  the  use  of  approximately  27,000  of  the  available  32,768  cells 
of  memory.  Emphasis  was  placed  on  achieving  system  flexibility,  making 
the  input  preparation  as  simple  as  possible,  and  producing  outputs 
that  could  be  used  directly  as  unit  loading  forms. 

All  of  the  equipment,  supplies,  units  and  ship  types  described 
in  the  input  are  specified  by  their  standard  Marine  Corps  nomenclature  ■ 
equipment  and  supplies  by  T/A  number,  units  by  T/0  number,  ship  type 
by  standard  ship  designators,  etc. 

A  description  is  provided  of  the  programs  of  the  EMBARK  system 
in  terms  of  their  input  requirements,  output  reports,  and  computational 
procedures.   The  four  main  subroutines  -  UCM,  UPT,  VSP  and  CANDLA  - 
are  also  described  in  detail,  flow  diagrams  being  included  for  them  as 
well  as  for  the  programs.   Since  the  remaining  six  subroutines  — 
CLASS  V,  RATIONS,  WATER,  PETROL,  EQUIP,  WUCM  and  WCANDLA  merely  re- 
arrange information  or  print  data,  their  flow  diagrams  or  descriptions 
are  not  included.   However,  Fortran  language  listings  of  all  these 
minor  subroutines  are  given  in  Appendix  B.   Figure  3  shows  the  inter- 
relationships between  EMBARKD  and  the  various  subroutines. 
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The  information  needed  to  run  problems  on  the  computer  is  given 
in  Appendix  A,  which  includes  a  description  of  the  additional  control 
cards,  tape  assignments,  and  machine  operating  instructions. 

All  the  tables  of  data,  basic  and  computed,  are  stored  in  COMMON 
storage  to  permit  greater  utilization  of  the  1604  memory  and  to  avoid 
lengthy  CALL  statements. 
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SCHEMATIC  OF  INTERRELATIONSHIP 
BETWEEN  THE  SUBROUTINES  OF  EMBARKD 


EMBARKD 


UCM 


-  EQUIP 

-  CLASS  V 
-PETROL 

-  RATIONS 

-  WATER 

-  WUCM 

-  PETROL 


WUCM 


CANDLA 


VSP 


UPT 


PETROL 


WCANDLA 


1. 


2. 


3. 


Verticle  relationship  -  subroutines 
use  the  information  from  those 
shown  above  them. 

Subroutines  always  called  are 
indicated  by  solid  line 

Subroutines  which  may  be  called  if 
required  are  indicated  by  dotted 
line  -  -  -. 


Figure  3 
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SECTION  IV 
PROGRAM  EMBARKD 
Purpose 

Program  EMBARKD  calculates  and  prints  the  loading  forms  required 
for  an  amphibious  operation  loading  plan.   The  program  acts  as  a 
driver  for  the  eleven  subroutines:   UCM,  VSP,  UPT,  CANDLA,  CLASS  V, 
RATIONS,  WATER,  PETROL,  EQUIP,  WUCM  and  WCANDLA.   The  subroutines 
calculate  the  necessary  information  and  actually  print  out  the  loading 
forms.   Figure  3  shows  the  order  in  which  the  various  subroutines 
are  called. 
Input  Data 

An  input  tape  of  the  Table  of  Allowances  and  CLASS  V  information, 
this  information  is  read  into  memory  before  calling  the  first  sub- 
routine (JL3J  .   Input  consists  of  the  normal  T/E  decks,  each  preceded 
by  the  four  "Required"  cards.   See  Appendix  A  for  T/E  deck  input 
format . 
Restrictions 

Must  be  run  under  "Three-argument  Monitor"  control.   See 
Appendix  B . 
Methodology 

EMBARKD  loads  the  Table  of  Allowances  and  CLASS  V  information  into 
memory  and  then  calls  the  subroutines  which  compute  and  print  out  the 
loading  forms.   Figure  4  shows  the  flow  chart  of  EMBARKD  and  Figure 
4A?the  Fortran  '60  listing. 
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Output 

Examples  of  the  output  of  EMBARKD  are  shown  with  the  subroutines 
that  actually  print  the  unit  loading  forms. 
Timing 

A  formula  for  EMBARKD  running  time  cannot  be  given;  however, 
the  following  experience  may  be  of  interest.   It  takes  approximately 
three  minutes  to  compile  the  program  and  takes  an  additional  two 
minutes  to  print  out  the  loading  forms  for  an  artillery  regiment. 
Running  time  depends  on  the  number  of  T/E  decks  for  units  in  the 
embarkat  ion  movement . 

1.   SUBROUTINE  UCM 
Purpose 

To  compute  and  print  out  a  Unit  Cargo  Manifest  for  an  organi- 
zation of  any  size.   The  print-out  is  provided  actually  by  the  sub- 
routine WUCM.   Also  utilized  are  subroutines  WATER,  EQUIP  and  PETROL. 
The  computed  information  is  accumulated  as  input  to  subroutine  UPT. 
Input  Data 

Input  is  the  normal  T/E  deck  plus  the  four  leading  cards  that 
must  always  be  included.   See  Appendix  A  for  input  card  format  for 
the  T/E  deck. 
Output  Data  Tapes 

BCD  output  of  UCM  to  be  printed  off-line,  e.g.,  on  an  IBM  1403. 
This  is  the  first  output  document  printed  out  for  any  organization. 
Restrictions 

The  T/E  deck  must  not  exceed  424  cards  in  total,  however,  T/E 

decks  may  be  divided  into  segments  of  420  cards  with  the  four  leading 

cards  included  in  each  segment. 
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Methodology 

UCM  loads  the  entire  T/E  deck  into  memory  accumulating  the  T/A 
number  of  the  equipment  being  embarked,  the  quantity  of  that  equipment 
and  the  Vehicle  Registration  Number.   The  subroutine  then  matches  the 
incoming  T/A  number  of  the  T/E  card  with  that  number  in  store  and 
extracts  the  number  of  square  feet,  cubic  feet  and  the  weight  of  the 
equipment.   The  program  tests  to  see  if  the  item  weighs  over  10,000 
pounds.   If  it  does,  the  subroutine  computes  an  approximate  height 
and  stores  this  with  the  weight,  number  of  cubic  feet  and  number  of 
square  feet  under  Heavy  Lifts.   It  also  checks  to  see  if  an  item  has 
an  area  listed  although  it  weighs  less  than  10,000  pounds.   If  so, 
the  item  is  assigned  to  a  Heavy  Lift  category.   If  the  item  is  not  a 
Heavy  Lift,  the  subroutine  then  tests  to  see  if  the  item  weighs  over 
100  pounds;  if  so  it  stores  the  number  of  cubic  feet  and  weight  under 
Mobile-Loaded  Cargo.   If  over  100  pounds  and  not  a  Heavy  Lift,  the 
item  is  considered  as  Standard  Cargo  and  the  number  of  cubic  feet  and 
weight  are  stored  as  Standard  Cargo. 

The  subroutine  then  goes  back  and  checks  the  next  T/E  item  and 
repeats  the  cycle  until  all  items  have  been  handled.   Then,  the  T/A 
numbers  are  broken  down  into  groups  by  UP&TT  line  number  classification 
and  a  Box  Number  is  assigned  to  each  item  included  in  the  UP&TT  line 
number  group.   The  subroutine  reads  the  description  from  the  infor- 
mation  on  the  T/A  c&rd  in  memory,  and  totals  all  the  Volume  and  Area 
information  by  UP&TT  line  number. 
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The  subroutine  WUCM  then  prints  out  this  information,  showing  for 
each  T/A  number  the  UP&TT  line  number.  Box  Number,  Description,  number 
of  Cubic  Feet  and  Weight,  as  well  as  Square  Feet  and  Height  if  item 
is  a  Heavy  Lift.   It  prints  totals  for  all  UP&TT  line  numbers  of  the 
weight  and  number  of  cubic  feet  of  those  T/A  numbers  making  up  one 
UP&TT  line  category. 

Figure  5  shows  the  flow  chart  for  subroutine  UGM  and  Figure  5A, 
the  Fortran  f60  listing. 
Output 

The  output  written  by  WUCM  is  the  Unit  Cargo  Manifest,  a  sample 
of  which  is  shown  in  Figure  5B. 

2.   SUBROUTINE  VSP 
Purpose 

To  compute  and  printout  the  Vehicle  Summary  and  Priority  Table 
for  an  organization  of  any  size.  The  computed  information  is  also 
accumulated  for  input  to  subroutine  UPT. 
Input  Data 

Input  is  the  normal  T/E  deck  with  the  four  leading  cards  that  must 
always  be  included.   See  Appendix  A  for  T/E  deck  card  input  format. 
Output  Data  Tapes 

BCD  output  of  VSP  to  be  printed  off-line,  e.g.,  on  an  IBM  1403. 
Restrictions 

The  T/E  deck  must  not  exceed  424  cards  in  total,  however,  T/E 
decks  may  be  divided  into  segments  of  420  cards  with  the  four  leading 
cards  included  in  each  segment. 
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Methodology 

VSP  reads  the  T/A  Number,  length,  width,  quantity  and  vehicle 
registration  number  from  the  incoming  T/E  card.   Then  it  matches  up 
with  that  T/A  Kumber  in  store  and  extracts  the  information  as  to  the 
weight,  volume  (cubic  feet)  and  area  (square  feet)  required  for  the 
vehicle.   Next,  the  subroutine  calculates  the  height  of  the  vehicle 
by  dividing  the  volume  by  the  area.   The  vehicles  are  assigned  priority 
numbers  based  on  the  order  in  which  the  cards  are  read  by  the  computer. 
The  subroutine  then  extracts  the  carrying  capacity  of  the  vehicle  from 
the  information  under  that  T/A  number  in  store,  and  assumes  this  to  be 
the  weight  of  cargo  loaded  in  the  vehicle.  (Each  vehicle  is  loaded  to 
capacity.)   Then  the  gross  weight  is  calculated  by  adding  to  the  net 
weight  of  the  vehicle  the  weight  of  the  cargo. 

Having  read  the  unit  and  ship  information  from  the  leading  card 
of  the  T/E  deck,  the  subroutine  now  prints  out  the  Vehicle  Summary 
and  Priority  Table  listing  all  the  vehicles  by  priority  for  unloading, 
including  dimensions  and  weight  for  each  vehicle. 

Figure  6  shows  the  flow  chart  for  VSP  and  Figure  6A, the  Fortran  '60 
listing. 
Input 

See  Appendix  A  for  card  input  format. 
Output 

The  output  written  by  VSP  is  the  Vehicle  Summary  and  Priority 
Table,  a  sample  page  of  which  is  shown  in  Figure  6B. 
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3.   SUBROUTINE  UPT 
Purpose 

To  consolidate  the  information  contained  in  the  Unit  Cargo 
Manifest  and  in  the  Vehicle  Summary  and  Priority  Table,  plus  a 
breakdown  by  the  number  and  rank  of  personnel  to  be  embarked.  The 
subroutine  prints  out  the  UP&TT,  subdividing  the  information  into  the 
personnel  breakdown,  classes  of  supplies  indicating  the  total  number 
of  cubic  feet  and  weight  of  each  subclass,  and  the  total  number  of 
square  feet,  cubic  feet  and  weight  of  the  total  vehicles.  The  sub- 
routine computes  the  total  number  of  short  tons  and  measurement  tons 
of  the  cargo  to  be  loaded. 
Input  Data 

A  T/E  deck  showing  the  T/0  breakdown  of  personnel  for  units 
embarked.  Also,  the  information  which  has  been  stored  in  the  computer 
by  the  UCM  and  VSP  subroutines  after  processing  the  T/E  decks  for  those 
units  embarked. 
Output  Data  Tapes 

BCD  output  of  the  UP&TT  to  be  printed  off-line,  e.g.,  on  an  IBM 
1403. 
Restrictions 

The  T/E  deck  must  not  exceed  424  cards  in  total,  however,  the 
decks  may  be  divided  into  segments  of  420  cards  with  the  four  leading 
cards  in  each  segment. 
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Methodology 

UPT  reads  from  the  leading  cards  coming  in  with  the  T/E  deck  the 
breakdown  of  personnel  for  each  unit.  Also  it  obtains,  from  sub- 
routines UCM  and  VSP,  information  on  the  number  of  cubic  feet,  weight 
and  number  of  square  feet  of  all  the  cargo  as  broken  down  into  cate- 
gories of  UP&TT  line  number.   The  subroutine  then  divides  the  total 
weight  of  all  items  by  2000  to  determine  the  number  of  short  tons  of 
cargo  and  divides  the  total  number  of  cubic  feet  of  all  items  by  40  to 
determine  the  number  of  measurement  tons  of  cargo. 

The  subroutine  prints  out  the  Unit  Personnel  and  Tonnage  Table 
showing  a  breakdown  of  personnel,  supplies  and  equipment,  vehicles 
and  grand  totals  of  number  of  short  tons,  number  of  measurement  tons, 
number  of  square  feet,  number  of  cubic  feet  and  weight  (in  pounds)  of 
all  cargo  to  be  loaded. 

Figure  7  shows  the  flow  chart  for  UPT  and  Figure  7A, the  Fortran  '60 
listing. 
Input 

See  Appendix  A  for  the  card  input  format. 
Output 

The  output  written  by  UP&TT  is  the  Unit  Personnel  and  Tonnage 
Table,  a  sample  page  of  which  is  shown  in  Figure  7B. 

4.   SUBROUTINE  CAKDLA 
Purpose 

To  compute  and  print  out  The  Cargo  Loading  and  Analysis  form  for 
an  organization  of  any  size.   The  print  out  is  actually  provided  by 
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the  subroutine  WCANDLA, 
Input  Data 

Input  is  the  normal  T/E  deck  plus  the  four  leading  cards  that 
must  always  be  included. 
Output  Data  Tape 

BCD  output  of  CANDLA  to  be  printed  off-line,  e.g.,  on  an  IBM  1403. 
Restrictions 

The  T/E  deck  must  not  exceed  424  cards  in  total,  however,  T/E 
decks  may  be  divided  into  segments  of  420  cards  with  the  four  leading 
cards  included  in  each  segment. 
Methodology 

CANDLA  loads  the  entire  T/E  deck  into  memory  as  in  subroutine 
UCM  and  proceeds  to  classify  the  incoming  information  by  the  same 
method  as  that  used  in  subroutine  UCM.   In  addition  to  the  information 
produced  by  subroutine  UCM,  CANDLA  also  calculates  the  number  of  rounds 
of  ammunition,  gallons  of  liquid,  number  of  rations  and  the  number  of 
heavy  lifts  required.   It  totals  each  page  and  accumulates  grand  totals 
of  the  cubic  feet  and  weight  of  standard  cargo,  the  number  of  heavy 
lifts,  square  feet,  height,  number  of  cubic  feet  and  weight  of  unitized 
cargo  and  heavy  lifts.   CANDLA  also  totals  the  number  of  cubic  feet 
and  weight  of  mobile -loaded  cargo. 

The  subroutine  WCANDLA  then  prints  out  this  information  showing 
for  each  T/A  number  the  UP&TT  line  number,  unit,  description,  number 
and  type  container,  number  of  rounds  of  ammunition,  gallons  of  liquid, 
cubic  feet  and  weight  of  standard  cargo,  number  of  lifts  and  square 
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feet,  height,  cubic  feet  and  weight  of  heavy  lifts.   It  also  shows 
for  each  T/A  number  the  number  of  cubic  feet  and  weight  of  mobile 
cargo.  Page  totals  and  grand  totals  of  cargo  are  also  provided. 

Figure  8  shows  the  flow  chart  for  subroutine  CANDLA  and  Figure 
8A,the  Fortran  '60  listing. 
Output 

The  output  written  by  WGANDLA  is  the  Cargo  and  Loading  Analysis, 
a  sample  of  which  is  shown  in  Figure  8B. 
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S(1),F 
,(FLAG 


SCCU 
,C,PR 
CO/»CU 
CNS,S 
CV,NT 
II, JJ 
7),(M 
C4  ),  ( 
W).(M 
MEl), 
,MTOT 
LAG), 
S(M), 


,  W  T ,  CA 
IM.FUS 
ITAV, 


,FUE 
,XFU 
SWTV 
,SGU 
NO,M 
,NRA 
M06) 
,M03 
ME7) 
1  ),M 


•  I  IflVt 

CUPT33 

AV,N1, 

,QRATS 

EN(2), 

MEN(5) 

EN  (8), 

(MENU 

), 

(FLAGS(2),FLAG2), 

FLAG4) 


,GAL,DESC,NTE,NTA, 

•QTYV.KTV.CUV, 

SCUV,CUUPT,WTUPT, 

rT39,D0A,HRSFUELt 

1,KV,LL, 

TS, SUM, MEN, FLAGS 

t 


GT), 


1 


LINE=73 
PRINT  1  CL 
FORMATdX, 
7HUNIT  -  , 
LINE=LINE+ 


10 


11 
12 
13 
1U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
60 
55 

59 


61 

62 
63 


DC    50 

CC    50 

IF(NT 

IN=IQ 

C=IQT 

IF(NT 

IF(NT 

IF  (NT 

IF  (NT 

IF  (NT 

IF(NT 

IF  (NT 

IF  (NT 

IF(NT 

IF(NT 

IF(NT 

IF(NT 

IF(NT 

IF(NT 

IF(NT 

IF(NT 

IF  (NT 

IF(NT 

IF  (NT 

IF(NT 

IF(NT 

IF(NT 

IF  (NT 

IF(0R 

L=1 

GC    TO 

L  =  5 

GC    TO 


JJ  =  1 
11  =  1 


A(I 
TY( 
Yd 
A(I 
A(I 
All 
A(I 
A(I 
A(I 
A(  I 
A(  I 
A(I 
A(I 
Ad 
A(T 
A(I 
A(I 
A(I 
Ad 
Ad 
(I 
(I 
(I 
(I 
(I 


ASS, ORG, SHIP, DATE 

2A8  ,    //    47X,25HUNIT 

A5,27X,7HSHIP  -  ,(UA8), 

,N1 
,M1 
-ITANBR( JJ) )50,10,50 


CARGO  MANIFEST  ( UCM ) 
24X.7HDATE  -  ,A8,//) 


t//tlX, 


Ad 
G-UN] 

58 

58 


-10999 
-12999 
-13999 
-14999 
-15999 
-16999 
-29999 
-39999 
-4C999 
-41999 
-42999 
-43999 
-49999 
-59999 
-69999 
-79999 
-82999 
-83999 
-84239 
-84519 
-84999 
-85999 
-86999 
T(KK)) 


)55,5 
)60,6 
)64V6 
)62,6 
)66,6 
)68,6 
)60,6 
)64,6 
)62,6 
)62,6 
)75,7 
)62,6 
)62,6 
)66,6 
)68,6 
)70,7 
)71,7 
)72,7 
)73,7 
)73,7 
)73,7 
)74,7 
)76.7 
61,59 


c 
-  f 

c, 

2, 
t, 


11 
12 
13 
14 
15 


2 
5, 


e,  u 

C,  17 
18 
19 
2C 
21 
*,22 
2,23 
6,2M 
6,25 
C,2d 
1,27 
2,26 
3,29 
3,3C 
3,31 
4,32 
6.5C 
#61 


J? 


L  =  8 

GC    TO    58 

IF (CRG-UNIT(KK))63, 59,63 

L=10 

GO    TO    58 
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6U  IF(ORG-UNIT(KK) )65, 59,65 

65  L  =  9 

GC  TO  58 

66  lF(CRG-UNIT(KK))6?t59f67 

67  L=11 

GO  TO  58 

68  IF(CRG-UNIT(KK))69,59,69 

69  L=12 

GC  TO  58 

70  FLAG2=-1. 
CALL  PETROL 
L  =  25 

CALL  WUCM 

L  =  26  / 

GC  TO  58  / 

71  L=16 

GC  TO  58 

72  L=17 

GC  TO  58 

73  L=18 

GC  TO  58 
7U  L=19 

GC  TO  58 

75  L=13 

GO  TO  58 

76  L=20 

58  LL=L 

CALL  WUCM, 

CUUPT(L)=CUUPT(L)+SUMSCU-»SUMHCU+SUMXMCU 
WTUPT(L)=WJUPT(L)+SUMSWT+SUMHWT+SUMXMWT 
CO  100  L=lf7 
TOO  SUN(L)=0. 
50  CONTINUE 

CIUPT(3)=CUUPT(1  >+CUUPT(2) 
WTUPT(3)=WTUPT( 1 )+WTUPT(2) 
WTUPT(6)=WTUPT(l*)+WTUPT{5) 
CUUPT(6)=CUUPTU)+CUUPT(5) 
DO  80  L  =  8,  14 
WTUPT(15)=WTL'PT(  15  ) +WTUPT (L ) 

80  CUUPTt 15)=CUUPT( 15  )  ♦CUUPT ( L ) 
DC  81  L=16,22 

mm     WTUPT(23)=HTUPT(23)+WTUPT(L) 

81  CL,UPT(23)=CUL!PT(23)+CL'UPT(L) 

??HHSJ5^P?  =  CUUPT(3,+CUI-PT<6>  +CUUPT  (  15)4CUUPT(23)+CUUPT(27)  + 
1CUUPT(2U)+CUUPT(33)+CLUPT(34)+CUJPT(37)+CUUPT(28) 
9*jyPT(38)=WTUPT<3)+WTLiPT(6)+WTLIPT<  15)+WTUPT(23)+WTUPT(27)  + 
1WTUPT(2U)+WTUPT(33)4WTUP7(314)+WTUPT(37)  +  WTUPT(28) 

WTUPTT  =  WTUPT(38)+WTUPT(39) 

CUUPTT  =  CUUPT(38)+CUUPT(39) 

SCUPT   =  SCUPT38  ♦  SQUPT29 

ST0NS=WTUPTT/2C00. 

XTGNS  =  CUUPTTMO. 

END 
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„  UNIT  CARGO  MANIFEST  CUCM) 

g           UNIT  -    ATH  ;-      SHIP   -    ST   CLAIR    COUNTY       LST-10S6  '% 

W  4-01-6* 

H?f.TI«  NBR  B0X     0CSC    •"  '        '                       STAN8AR0  CARGO  UNITIZED  CARGO  MOBILE 

--     LIN  NO  HEAVY  LIFTS  LOAO 

S                                              CUFT     HTILBI    SOFT  HT   CUFT    WT  CUFT  WT(LB 

#i"        "1*  *MEALt-cc*  **2§K6" 564616 1***16 *6**-,***6 lb'"9 °"*6 

•••••••••••••••••••••••••••••••••••••'•••     #uNE*f6tALS*,#,23i!6**5oie!o****T**#* lb 16 16 16 

*2*       '       *2*    "f«FLJfJE#  •-•••► • •  •••• .........£........... 

2                  \  ANTENNA                                                                                                                  .0                .0              .  .0  .0                .0  7.8  144.0 

!8             1  St!A.9H!&                                                                           •••      hS.o         .  .o  .o           .o  .o  .o 

3  SSBIESL.                                                                           *°           -°         .  .o  .o           .o  io.o  i83.o 

1  FRECUENC                                                                                                                .0                .0              .  .0  .0                 .0  5.7  93.0 

1  ..0         650.0              •  .0  .0                .0  .0  .0 

. •                I  5.0         136.0              •  .0  .0                .0  .0  .0 

2                  2  14.0        250.0             .  .6  .0                .0  .0  .0 

6                  2  .0                .0             •  .6  .0                .0  16.0  .0 

2                  ?  .0                .0              .  .0  .0                .0  4.0  H6.0 

2                  T  .0                .0             .  .0  .0                .0  3.0  93.0 

2                   ]  .S-I         364. Q              .  .0  .0                .0  .0  .0 

2                   }  17.0         364.0              •  .0  .0                .0  .0  .0 

2                  }  8.0         180.0             •  .0  .0                .0  .0  .0 

§                  **  ,..                                                                                       .0                .0             •  .0  .0                .0  4.0  60.0 

2                  2  .0                .0             .  .0  .0                .0  16.0  2CC.0 

2                  8  .0                .0             .  .0  .0                .0  6.4  112.0 

2                25  .0                .0             .  .0  .0                .0  75.0  1700.0 

1  2  22.6        442.0             .  .0  .0                .0  .0  .0 

2  1  .0.0  84.  4.3  360.0  3665.0  .0  .0 
2  1  .0.0  840.  .U  360.0  3865.0  .0  .0 
2  }  .0  .0  4.  90.0  360.0  .0  .0  .0 
2  *  .0  .0  .  .0  .0  .0  20.0  226.0 
8  6  .0  .0  .  .0  .0  .0  36.0  6CC.0 
2  1  .0  .0  .  .0  .0  .0  .0  .0 
8  2  .•  .0  .  .0  .0  .0  10.0  20C.0 
8  7.0  121.0  .  .0  .0  .0  .0  .0 
J  2  .,  .f  .0  •  .0  .0  .0  6.8  I1C.0 
8  16  .0  .0  .  .8  .8  .0  16.0  224.0 
I  1  »0  .1  .  .8  .0  .0  .9  20.0 
8  2  ^f  .6  .  .0  .0  .0  10. g  lie. 6 
8             1  .8            .8          .  .o  .e           .o  .3  Ts.e 

8                 7  ->                -   _.,                       .3        -.-*$.      .  .8  .8               .0  14.8  385.0 

i .  _         i  ■■    y                                '     ■  •«          -••■         •  .c  .o           .0  2.e  4c.o 

....♦.....•..•«....»•......•..••.......    *.••«...*««*..«..*««...*.«.»«**»••....«*«....•*••■.....*.  ...............  ...... 

LINE    TOTALS             96.4      2962.0      928.  1080.0      7730.0  267. S  4753.0 


V  .  v        . 

►J 
■-.-    1.    .' 
'.    .  -  .  —     ... 

.- ;      ..._.„.     -  . 

... 


-    -.         --  ._''■  .--  .  -'." 

.- 

••     -.-■'.- 

• 
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SU8RCUTINE  VSP 

OD I  MENS  ION    ITANBR(1750),ISTDPKG(17  5C),SQ( 1750 ) ,CU ( 1 750  ), WT ( 1750 ) , 
1CA(1750) . FUEL ( 1 ?50 ), G AL (  1750), DESC( 1750 ) ,NTE ( U20 ) . NTA (M20), 
2UMT(U20),IQTY(U20),  MLDU20  )  ,LN  {  331  )  .  BA  (  33  1  )  ,D(  33  1  )  t 

3PRIM(331 ),FUS(331) ,XFUS(331  ),CTYV (331  )  , WTV( 331 ) ,CUV(3 31  ), 
ULNREF(331),  I TAV( 50)  • SWTV (50  )  , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 
6SHIPU). 

7  CLASS(2),NTOV(231 ),NTAV(331 ), 

8  XLO(  1C0),KTA(100 ), 

9  SUM(7),MEN( 1 2 ) , T EMP ( 6 ) ,S TKNBR(2) , WDESC ( 6 ) ,FL AGSIH ) 

OCCMMCN  ITANBR,ISTDPKG,SQ,CU,WT,CA, FUEL, GAL, DESCNTE, NTA, 
1UNIT,  IQTY,  EG,MLD,LN,BA,D,PRIM,FUS,XFUS,QTYV,WTV,CUV, 
2LNREF,BACU,8AWT,0OAWT,COACU,  I  TAV,  SWTV  ,  SCUV.CUUPT,  WTUPT, 
3CUUPTT,WTUPTT,STCNS,XTCNS,SCUPT38,SQUPT39,D0A,HRSFUEL , 
UDATE,  SHIP,  ORG,  CLASS,  NTOV,  NTAV  ,N  1,  NO,  Ml,  KV.LL,  ,  *'•:■,■; 

5LINE,NPAGE,XLD,KTA,K1,II,JJ,QRATS,NRATS,SUM»MEN,FLAGS 

ECUIVALENCE  ( MEN( 1 ) ,MC7 ) , ( MEN ( 2 ).  M06 ) . 
1  (MEN(3),M05),  (MENU),MOU),  (MEN(5)  ,M03), 
2(MEN(6),M01), (MEN(7),MW).(MEN(8).  ME7), 
3(MEN(9),ME5),(MEN( 1 0 ) .ME  1 ) , ( MEN (1  1  ),M0T), 
4(MEN(12) ,MET), ( MEN ( 1 3  )  ,MTOT ) , 

5  (FLAGSM  ),FLAG), ( FLAGS (2 ) #FLAG2) , 
6(FLAGS(3),FLAG3),(FLAGS(1*),FLAGU) 

SSCP=0. 
SCUP=0. 
SWTP=0. 
SXP=0. 
SGUTP=0. 
SSCG=0. 
SCUG=0. 
SWTG=0. 
SXG=0. 
SGWTG=0. 
K=l 

NPAGE  =1 

PRINT  99 

99  FCRMAKIHI  ) 

PRINT  98  CLASS,  NPAGE 
98  F0RMAT(1X,2A8   ,95X,  MHPAGE,  13/) 

PRINT  97  ORG, SHIP 
970FCRMAT(39XU3HVEHICLE  SUMMARY  AND  PRIORITY  TABLE  (VS+PT)    //1X, 
1  7HUNIT  -  ,A5//1X,  7HSHIP  -  ,MA8/) 
PRINT  96 
960FCRMAT(1X,  UUHUNLOAC   LANDING     TYPE       UNIT    VEHICLE 

122HLENGTH   WIDTH   HEIGHT   32HSQFT   CUFT   NET  WT   CARSO(LB)    ,2X, 

216HGR0SS  WT   WHERE  /1X, 

3  »45HPRIORITY  SERIAL   VEHICLE  REGISTRA- 

U22H  32H  (LB)OF   LOADED  IN    ,2X, 

516HILB)  OF    ST0WED/1X, 

6  U5HNUMBER    NUMBER  TION  NO. 

722H                       32H            VEHICLE   VEHICLE     ,2X, 
816HVEHICLE          )                      - 
PRINT  95 
95  FORMAT  (120H • *.. 


1 


LINE=12 

C  N1    =    NUMBER    OF    T/A   ITEMS 

C  Ml    =    NUMEER    OF    T/E   ITEMS 

DC    100    1  =  1, Ml 

CC    100    J=l ,N1 

IF(ITANBR( J)-NTA( I) )     100,5,100 

5  IF(SQ(J))     100,100,6 

6  IF(30000-ITANBR( J) )    2,11,100 

2  IF     (39999-ITANBR(J) )     5,11,11 

3  IF    (50000-ITANBRU)  )    14,11,100 
U    IF     (69999-ITANBR(J)  )     100,11,11 

11    HT=CU( J)/SC( J) 
C      GET    CARRYING    CAPACITY    OF    VEHICLE 

Figure  6A 
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DC    12    L=1.K1     * 

IF    (NTA(  I)-KTA(U)     12,13,12 
13    XPCBWT  =  XLDU) 
12    CCMINUE  * 

GWT=XMOBWT+WT( J) 

PRINT    7    K,CESC(J),UNIT(I),MLD(I),HT,$Q(J),CU(J)1WT(J) ,XMOBWT,G*T 
7    FORNATt  10X,I3,5X,A8,MX,A5,2X,  A8, 1 3X, 3F7. 1 ,3F10. 1, 10X) 

UNE*UNE+1 

SSCP=SSQP+SQ(J) 

SCUP=SCUP+CU( J) 

SWTP=SWTP+HT( J) 

SXP=SXP+XMCBWT 

SGWTP=SGWTP+GWT 

SSCG=SSQG+SSCP  / 

SCUG=SCUG+SCUP  »  ' 

SXG=SXG+SXP 

SWTG=SWTG+SWTP 

SGVsTG  =  SGWTG  +  SGWTP 

XNCBWT=0. 

GWT=0.  v 

HT  =  0. 

IF(77-LINE)    9,9,100 
9    PRINT    10    SSQP,SCUP,SWTP,SXP,SGWTP 

SSCP=0. 

SCUP=0. 

SWTP=0. 

SXP=0. 

SGWTP=0. 
10  FCRyAT(68X.FU.1.3F10.111CX) 

PRINT  10  SSQG,SCUG,SWTG,SXG,SGWTG 

PRINT  8 
.  8  FCRMAT(/U0X,33HBLAND/HANSEN  THESIS  -EMBARK-  196U  ,1H1) 

NPAGE-NPAGE+1 

PRINT  98  CLASS, NPAGE 

PRINT  96 

PRINT  95 

LINE=6 
100  CONTINUE 

RETURN 

END 
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VEHICLE  SUMMARY  AND  PRIORITY  TABLE  (VS+PT) 


UNIT  -  H1551 

SHIP  -  ST  CLAIR  COUNTY   LST-1C96 


UNLOAO  LANOING 
PRIORITY  SERIAL 
NUMBER    NUMBER 


TYPE    NO  UNIT 

VEHI3LE  LENGTH 

VEHICLE  VEH 

REGISTRA- 

TION NO. 

! 

1  H1551 

1 

1  H1551 
H1551 

' 

i  H1551 

300A 

I  H1551 

301D 

1  H1551 

302F 

1  H1551 

303H 

1  H1551 

304H 

■ 

H1551 

305M 

1  H1551 

306N 

1  H1551 

307N 

H1551 

4000 

I  H1551 

401H 

H1551 

402P 

1  H1551 

403G 

F1551 

4C4Y 

H1551 

H1551 

105C 

1  H1551 

106H 

H1551 

107N 

1  H1551 

108H 

t  H1551 

109Y 

1  H1551 

1  1  1A 

H1551 

112H 

K1551 

1131 

H1551 

115N 

1  H1551 

7CCX 

H1551 

701T 

H1551 

702H 

I  H1551 

703Y 

H1551 

704G 

H1551 

705F 

s 

H1551 

500R 

H1551 

501E 

H1551 

502Q 

H1551 

503G 

H1551 

505H 

H1551 

506W 

H1551 

507V 

} 

H1551 

508N 

WIOTH   HEIGHT  SCFT 


CUFT   NET  WT   CARGO(LB) 
(LB)OF   LOADED  IN 
VEHICLE   VEHICLE 


GROSS  WT   WHERE 
(LB)  OF    STOWED 
VEHICLE 


1 


4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
lit 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
1*0 


5.1 

33.0 

168.2 

3.3 

30.0 

98.0 

3.6 

43.0 

155.4 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

5.0 

104.0 

520.0 

U.6 

102.0 

471.0 

4.6 

102.0 

471.0 

4.6 

102.0 

471.0 

U.6 

102. C 

471.0 

4.6 

102. 0 

471.0 

6.4 

94.0 

606.0 

17.4 

65.0 

1133.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

5.3 

97.0 

510.0 

6.7 

184.0 

1224.0 

6.7 

184.0 

1224.0 

6.7 

184.0 

1224.0 

6.7 

184.0 

1224.0 

6.7 

184.0 

1224.0 

6.7 

184.0 

1224.0 

6.1 

45.0 

274.0 

6.1 

45.0 

274.0 

6.1 

45.0 

274.0 

6.1 

45.0 

274.0 

6.1  ' 

45.0 

274.0 

6.1 

45. C 

274.0 

6.1 

45.0 

274.0 

6.1 

45.0 

274.0 

880.0 

.0 

880.0 

790.0 

.0 

790.0 

565.0 

500.0 

1065.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

1340.0 

1500.0 

2840.0 

2750.0 

3000.0 

5750.0 

2750.0 

3000.0 

5750.0 

2750.0 

3000.0 

5750.0 

2750.0 

3000.0 

5750.0 

2750.0 

3000.0 

5750.0 

2280.0 

.0 

2280.0 

2963.0 

.0 

2963.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

5950.0 

1500.0 

7450.0 

12880.0 

5000.0 

17880.0 

12880.0 

5000.0 

17880.0 

12880.0 

5000.0 

17880.0 

12880.0 

5000.0 

17880.0 

12880.0 

5000.0 

17880*0 
1788mo 

12880.0 

5000.0 

1700.0 

.0 

1700.0 

17C0.0 

.0 

1700.0 

1700.0 

.0 

1700.0 

1700.0 

.0 

1700.0 

1700.0 

.0 

1700.0 

17C0.0 

.0 

-1700.0 

1700.0 

.0 

1700.0 

1700.0 

.0 

1700.0 

7C428.0 

69500.0 

239928.0 

i 


GRAND    TOTALS 


BLANO/HANSEN    THESIS   -EMBARK-    1964 
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SUBROUTINE    UPT 

ODINENSION    ITANBRM750),  ISTOPKGI  17 5C  ) ,  SC  (1  750  ) ,  CU  (  1750  )  ,  KT  ( 175C  )  t 
lCA(17  50).FUEL(17  5'0)fGAL(  1750 ) ,DESC ( 1750 ) .NTE ( U20)  ,NTA (U2G), 
2UNIT(U20),  ICTY(U20),  MLD(i4  20  ) ,  LN  (  33  1  )  ,BA  (  331  )  ♦  D(  33  1 )  , 

3PRIM(331 ).FUS(331),XFUS(331 ),QTYV(331 ),WTV(331 ), CUV (3 31) • 
ULNREF(331),  ITAV ( 50)  , SWTV(5C  )  , 

5SCUV(50) ,CUUPT(39) ,WTLPT(39), 
6SHIP(U), 

7  CLASS(2),NTOV(331  ),NTAV(331 ), 

8  XLC(  1CC),KTA( ICO ), 

9  SUM(7),MEN(13),TEMP(6),STKNBR(2),WDESC(6),FLAGS(U) 

OCOKMON    ITANBR,ISTDPKG,SC,CU,WT,CA,FUEL,GAL,DESC,NTE,NTA, 
lUMTt  ICTYt  EGt  NLDtLNt  BAvCfPRIM«FUS  •XFUStOTYVfViTVtCUVf . 
2LNREF,BACU,BAWT,  COAWT ,COACU.I TAV, SWTV , SCUV,CUUPT.WTUP T, 
3CUUPTT,WTUPTT,ST0NS,XTCNS,SCUPT38,SQUPT39,D0A,HRSFUEL, 
UDATE,SHIP,CRG,CLASS,NTCV,NTAV,N1,  NC,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1  ,  I  I , JJ, QRATS ,NRATS, SUMf MEN, FLAGS 

EQUIVALENCE    ( MEN ( 1 ) , MC7 ) , ( MEN (2 ). M06 ) . 
1 (MEN(3),M05), (MEN(U),NCU). (MEN (5) ,MC3), 
2(MEN(6),M01), (MEN(7),fW) .(MEN (6), ME7) , 
3(MEN(9).ME5), (MEN( 10 ) . ME  1  ) , (MEN (1  1 ),MOT), 
U(PENl 12) ,MET) , (MEN( 13),MT0T), 

5  (FLAGS( 1 ), FLAG), (FLAGS (2), FLAG2), 

6 (FLAGS (3) ,FLAG3) ,  ( FLAGS ( M ), FLAGU) 

STCNS=WTUPT(39)/2000. 
XTCNS=CUUPT(39)/U0. 
SCUPT=S0UPT38+SQUPT39 
CUUPTT=CUUPT(38)*CUUPT(3S) 
VvTUPTT=WTUPT(38)+WTUPT(3S  ) 

900  PRINT  901  CLASS 

901  FCRMAT(1H1//2X,2A8,/UCX  ,UOHUNIT  PERSONNEL  AND  TONNAGE  TABLE  (UP.T 
IT)/) 

PRINT  Ul 

ui  fcrmat(120f: 

1 ) 

PRINT  903  PC7,M06,MC5,MC*<,M03,M01 ,Mfc,MOT 
9030F0RMAT(2X,  11F0FFICERS  -  ,  »4HGEN=,I  5 ,  3X  ,  UHCOL=  t  15,  3X.6H  LTCOL*  , 1  5  ,3X, 
1UHNAJ=,I5,3X,5HCAPT=,I5,2X,3HLT=,  I  U  ,2X(  3HW0=,  15, 2X,  15HT0TAL  CFFICE 
2RS=,I5/) 
PRINT  90U  ME7,ME5,ME1,MET 
90U0FCRMAT(2X,11HENLISTED  -  . 5HMSGT=,  IU, 3X, 1 7H0THER  STAFF  NC0S*,I5,1UX 
1.15H0THER  ENLISTED=  ,  17, 12X, 1 5HT3 TAL  ENLISTED*  ,15/) 
PRINT  905  fTCT 

905  FCRMAT(99X,llFT0TAL  PERS=,I5) 
PRINT  Ul 

PRINT  906 

906  F0RMAT(U9X,2lHCARGO    (LESS    VEHICLES)) 
PRINT    907 

907  FORMAT!/, 2 X.6HSUPPLY. 3X , MHL INE, 39X , 1 1H0ESCRIPT ION, 37X ,5HCU    FT, 
1UX,7HWT    (LB)/2X,5HCLASS,5X,3HNO.) 

PRINT    Ul 

PRINT    908     (L1CUUPT(L),WTUPT(L),L=1,3) 

908  F0RMAT(13X,I2,2X,7HRATICNS,7UX,F8.C,F10.0/5X,1HI,7X,I 2, 
12X,5HWATER.76X,F8.0,F10.C/13X,I2,2X,13HTOTAL    CLASS    I,68X, 
2F8.0,F10.0) 

PRINT    Ul 

PRINT    909     (L,CUUPT(L) ,WTLPT(L),L=U,6) 

909  FCRMAT(2X,5HII     I  V , U3X ,2 1 F AUTHOR  IZ ED    ALL0WANCES/2X. 7HM EDICAL  ,  I  6, 
12X.17HTR00P    SPACE    CARGO, 6UX , F8. 0,  F 1 C. C/UX , 3HAND, 18, 2X , 
211H0THER    CARG0,70X,F8.C,F10.0/2X,  6HCENTAL , 17, 2X, 

35UHT0TAL    CLASS    II,     IV,    MEDICAL    AND    CENTAL    (LESS    VEHIC LES I »27X , 
UF8.0.F10.0) 

PRINT    Ul 

PRINT    910     (L,CUUPT(L),WTUPT(L),L=7,7) 

910  FCRMAT(2X,7HIIA,  IVA, I  6 , 2X , 1 7HAV IA T ICN    MATER  I AL,6UX, F8 .0 ,F1 C .C  ) 
PRINT    Ul 

PRINT  911  (L,CUUPT(L),WTUPT(L),L=8,15) 

911  F0RMAT(5UX,13HREPLENISHMENT/13X,I2,2X,20HELECTRONICS  ( SIGNAL) ,6 IX, 
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1Fe.0,Fl0.0/13X,I2,2X,8FENGINEER,7  3X,F8.0,F10.0/13XI2. 2X, 
219HGENERAL  SUPPLY  ( CM  }  ,  62X , F8  .C ,F  1 C .C/5X , 2H I  1 , 6X, I  2 ,2 X , 
315HMCTCR  TRAN SPORT, 66X,FE.O,F1C.O/13X,  12 , 2X, 8H0RDNANC E.73X, F8.0 , 
4F10.0/13X,  I2,2X,34*HCF;EMICAL  (LESS  INFLAMMABLE  AGENTS)  t  47X  ,F8.  C  ,F  10 
5.0/13X,I2,2X,5KOTHER,76X,F8.0,F10.C/13X,I2,2X,14HTOTAL  CLASS  lit 
667X, FS.OfFlO.O) 

PRINT  41 

PRINT  912  (L.CUUPT(L),WTLPT(L),L= 16,23) 

912  FORMAT ( 13X,l2f2X,20HELECTR0NICS  (SIGNAL),61X.F8.0,F10.0/13X.I2,2X, 
ieHENGINEER,73XtF8.0,F10.C/13X, 12,  2X ,  4  liHGENERAL  SUPPLY  (QM)  (LESS  E 
2XCHANGE  SUPPLIES),37X,F8.0,F1C.0/5X,2HIV,6X, 12 , 2X , 15H MOTOR  TRANSPO 
3RT,66XtF8.0,F10.0/13X,I2,2X,8HORDNANCE,73X,Fe.G,F10.0/13X,I2,2X( 
434HCHEMICAL  (LESS  INFLAMMABLE  AGE  NTS ) ,47X , F8.0, F 1 0.0/ 1 3X,I2 ,2X, 
55HCTHER,76X,F8.0,F10.C/13X,  12, 2X,  14HT0TAL  CLASS  IV  67  X,F8.C,F  1  CO) 

PRINT  41 

PRINT  910  (L,CUUPT(L),WTUPT(L),L=24,24) 

PRINT  41 

PRINT  913  (L,CUUPT(L) ,WTLPT ( L  ) , L= 25 ,27 ) 

913  FORMAT  (59X,3HP0L/13X,I2,2X,21HGAS0LINE  AND  KEROSENE, 60X ,F8.0 ,F1 0. 
10/4X,3HIII  ,6X,I2,2X,9F0THER  POL, 7  2X,  F8.0,  F10.0/  13X,  12  ,2X, 
215HT0TAL  CLASS  I  1 1 , 66X  ,  F8 .0 , F 1C .0 ) 

PRINT  Ul 

PRINT  914  (L,CUUPT(L),WTUPT(L),L=2e,28) 

914  FCRMAT(4X,4HIIIA,5X,lS,2X,29HAIRCRAFT  FUELS  ANO  LUBRI CANTS, 52X, 
1F8.0.F10.0) 

PRINT  41 

PRINT  915  (L,CUUPT(L),WTLPT(L),L=29.33) 

915  FORMAT ( 55X ,1  OH AMMUN IT  ION /13X, 12 ,2 X. 1CHSMALL  ARMS, 71 X. F8. 0,F1 0.0/ 
1 13X,I2,2X, 15HHIGH  EX PLCS  I VES, 66 X,  F8 .0 , Fl 0 .0. /4X, 1HV.8 X , 12 ,2X, 
247HINFLAMMA8LES  (PYROTECHNICS  AND  CHEMICAL  AGENTS) , 34 X,F8. C,F 10.0/ 
313X,I2,2X,  15HNUCLEAR  WEAPONS, 66X,  F8.C, F1C .0/ 13X, I2,2X , 
413HT0TAL  CLASS  V,68X, F8 . C , F10 .0 ) 

PRINT  41 

PRINT  916  .  (L,CUUPT(L),WTLPT(L),L=34,34) 

916  FCRMAT(4X,2HVA,7X, 12, 2X,  19HAIRCRAFT  AMMUN IT  ION, 62X, F8 .0 , Fl CO  ) 
PRINT  41 

PRINT  917  (L,CUUPT(L)  ,WTLPT ( L  ) , L= 35 , 37) 

917  FCRMAT(53X,14HCTHER    SUPPL  IES/  13X,  12, 2X, 1 7HEXCHANGE    SUPPLI ES,64X, 
1F8.0,F10.0/12X,I2,2X,  18HMEDICAL    ANC    DENTAL ,63X,F8. 0,F 1 0.0/ 
213X,I2,2X,20HT0TAL    OTHER    SUPPL I ES , 6 IX , F8. 0,F 1 0.0 ) 

PRINT  41 

PRINT  918  (L,SCUPT38,CUUFT(L),WTJPT(L),L=38,38) 

918  FCRMAT( 1 3X , I  2 , 2X , 67HTCTAL  CARGO  (ADC  LINES  3,  6,  7,  15,  23,  24,  27 
1,  28,  33,  34,  AND  37),7X,6HSQ  FT. / 17X ,  52H ( SQ  FT.  OF  UNITIZED  CARGO 
2  AND  HEAVY  LIFTS  FROM  C  +  LA  ) ,  1  7X  ,F  8.0,  4X,  F8.0,  Fl  CO) 

PRINT  41 
PRINT  919 

919  FCRMAT(56X,8HVEHICLES) 

PRINT    920     (L,SCUPT39,CUUPT(L),WTUPT(L),L=39. 39) 

920  F0RMAT(2X.6HI I     IIA/2X,6HAND    I V, 17 , 2X, 14HT0TAL    VEHICLE S,55X,F8.0, 
14X,F8.0,F10.0) 

PRINT    41 

PRINT  921  STCNS,XTONS,SGLPT  , CUUP TT .WTUPTT 
9210F0RMAT(2X, 15HGRAND  TOTALS  -  ,F10.3,11H  SHORT  T0NS,3X,  F14. 3 , 
1  17H  MEASUREMENT  TONS , 14X , F8. 0, 4X , F8.C,F 1 0.0 ) 

PRINT  41 

PRINT  922  ORG  , SHIP, CLASS 

9220FGRMAT(/4X,7HUNIT    -    ,A5,44X    ,  42HC  ERTIFIED    - 

1 /4X,7HSHIP    -    4A8.22X, 19HDATE    - //104X.2A8) 

PRINT    999 
999    FCRMATdHl  ) 

END 
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OFFICERS  -  GEN* 
ENLISTEO  -  MSGT= 


COL*     1    LTC  L* 
OTHER  STAFF  NCOS* 


20 


MAJ*     3    CAPT«    10    LT*    7 
DTHER  ENLISTED*     185 


WO*    10   TOTAL  OFFICERS*    32 

TOTAL  ENLISTED*   211 

TOTAL  PERS*   243 


CARGO  (LESS  VEHICLES) 


SUPPLY 
CLASS 

LINE 

NO. 

DESCRIPTION 

CU  FT 

WT  (LB) 

I 

1 
-  2 

3* 

RATIONS 

MATER 

TOTAL  CLASS  I 

321. 
321 1 

8311. 
83111 

II  IV 
MEDICAL 

AND 
DENTAL 

U 
5 
6 

AUTHORIZED  ALLOWANCES 
TROOP  SPACE  CARGO 
OTHER  CARGO 
TOTAL  CLASS  lit  IV,  MEDIIAL  AND  DENTAL  (LESS  VEHICLES) 

•• 

IIA,IVA 

7 

AVIATION  MATERIAL   ' 

. 

. 
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8  ELECTRONICS  (SIGNAL) 

9  ENGINEER 

10  GENERAL  SUPPLY  (QM) 

11  MOTOR  TRANSPORT 

12  ORONANCE 

13  CHEMICAL  (LESS  INFLAMMABLE  AGENTS! 

14  OTHER 
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REPLENISHMENT 
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22  OfHER 

23  TOTAL  CLASS  IV 


36* "  MEOlC  AL*  AND*  DENT  At* 
37   TOTAL  OTHER  SUPPLIES 


38 

TOTAL  CARGO  (ADD  LINES  3*  6,  7,  H,  23,  24,  2  7,  28,  33,  34,  AND  37) 
(W^FJ.  OF  UNITIZED  CAR  3  AND  HEAVY  LIFTS  FR3M  C+LA) 

2137. 

FT. 

14708. 

117164. 
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♦ 
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SUBROUTINE  CANCLA 


OOINENSION  ITA 

ICAt 1750) .FUEL 

2UNITU20)  .  IQT 

3PRINt331 ),FUS 

4LNREF1331) , 

5SCUV(50) ,CUUP 

6SHIP(4), 

7        CLASS! 

8 

9  SUM( 

OCOFMON  ITANBR 
1LNIT, IGTY,EG, 
2LNREF,BACU,BA 
3CUUPTT.WTUPTT 
4DATE, SHIP, ORG 
5LINE,NPAGE,XL 

EQUIVALENCE  ( 
1 (KEN(3).M05)f 
2tKEN<6),M01), 
3(KEN(9).ME5)t 
4(MENt 12),MET) 
5  (F 

6(FLAGSt3),FLA 


1 


2 

98 


100 

9 

10 


11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

I? 

32 

60 
55 

59 


LINE  =  73 

PRINT  1  CLASS 

FCRKAT(1X,2A8 
17HUNIT  -  ,A5, 

LINE  =  LINE+7 

PRINT  98 

FCRPAT(52X,10 
1  3X.13HMOBILE 

OC  100  L=1,7 

SUK(L)=0. 


NER(1750),ISTDPKG(17  5C),SQ(1750),CU<1750) ,WT(175C)t 
(1 75*0  ),  GAL  (  1750),DESC(  17  50) ,NTE ( 420) .NTA  (420), 
Y(420),       MLD(420),LN(331  ),BA(331),Dt 331  ), 
<331),XFUS(331),QTYV(331  ),WTVt331 ) .CUV (3 31), 

ITAV(50) ,SWTV(5C), 
Tt39),WTUPT 139), 

2),NTOV(331  ),NTAV(331 ), 

XLC(  100),KTA(1C0 ), 
7),PEN( 13),TEMP(6),STKNBR(2),WDESC(6),FLAGS(4) 

,ISTDPKG,SQ,CU,WT,CA,FUEL,GAL,DESC,NTE,NTA, 
MLD,LN,B/J,D,PRIM,FUS,XFUS,QTYV,feTV,CUV, 
WT,COAWT,COACU, ITAV, SWTV , SCUV.CUUPT, WTUP T, 
,ST0NS,XT0N$,SCUPT33,SQUPT39,D0A,HRSFUELt 
,CLASS,NTCV,NTAV,N1,  N0,M1,KV,LL, 
D,KTA,K1,II ,JJ,QRATS,NRATS,SUM,KEN,FLAGS 

MENtl ).MC7). (MEN(2).M06). 

(FENt4),NC4),(MEN<5) ,NC3), 

(MEN(7),KW) . (MEN(8),  ME7), 

IKENt 10)  .PE1), (MEN (11 ),MOT), 

,(MEN( 13),N.T0T), 

LAGSt 1 ),FLAG), ( FLAGS ( 2  I , FLAG2) , 

G3),(FLAGS(*O.FLAG4) 

.ORG, SHIP 

t//44X,33FCARGC  AND  LOADING  ANALYSIS  <C+LA),//,1X 
//1X.7HSFIP  -  ,(4A8) ) 

HSTD.  CARGO.  4X, 28HUNI TI ZED  CARGO  -  HEAVY  LIFTS  , 
LOADED  ) 


DC  50  11= 

DC  50  JJ= 

IF(NTA(I 

IN=IQTY< 

C=ICTY(I 

IF(NTA( I 

IFtNTAd 

IFtNTAd 

IF(NTA( I 

IF(NTA(I 

IF(NTA(I 

IF(NTA(I 

1F(NTA( I 

IF(NTA(I 

IFtNTAt I 

IF(NTA(I 

IF(NTA( I 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IFtNTAd 

IF<ORG-UN 

L=l 

GC  TO  58 

L  =  5 

GO  TO  58 


»N1 

-ITANBRt JJ)  )50, 10,50 

) 


-10 
-12 
-13 
-14 
-15 
-16 
-29 
-39 
-40 
-41 
-M2 
-43 
-49 
-59 
-69 
-79 
-82 
-83 
-84 
-84 
-84 
-85 
-86 
T(K 


999)55 
999)60 
999)64 
999)62 
999)66 
999)68 
999)60 
999)64 
999)62 
999)62 
999)75 
999)62 
999)62 
999)66 
999)68 
999)70 
999)71 
999)72 
239)73 
519)73 
999)73 
999)74 
999)76 
KM61. 


,55, 

11 

,6C, 

12 

,6H, 

12 

,62, 

in 

,66, 

15 

,66, 

16 

,6C, 

17 

,6M, 

16 

,62, 

19 

,62 , 

2C 

,75, 

21 

,62, 

22 

,62, 

22 

♦  66, 

2H 

.66, 

25 

,7C, 

26 

,71, 

27 

.72, 

26 

.73, 

V* 

.73, 

3C 

.73, 

31 

.714, 

33 

,76, 
59, 1 

h- 
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6i  L=e 

GC  TO  58 

62  IF(CRG-UNIJ(KK)  )63»,  59,63 

63  L=10 

GC  TO  58 

64  IF(CRG-UNIT(KK) )65,59,65 

65  L  =  9 
GC  TO  58 

IF(CRG-UNIT(KK) ) 67, 59 ,67 
L=11 

GC  TO  58 

IF(0RG-UNIT(KK))69,59,69 
L=12 

GC  TO  58 
FLAG2=-1 . 
CALL  PETROL 
LL  =  25 

CALL  WCANDLA 
L  =  26 

GC  TO  58 
L=16 
GC   0  58 

72  L=17 

GC  TO  58 

73  L=18 

GC  TO  58 

74  L=19 

GC  TO  58 

75  L=13 

GC  TO  58 

76  L=20 


66 
67 

68 
69 

70 


71 


.  / . 


&* 


58  LL=L 

CALL  WCANDLA 
50  CONTINUE 

RETURN 
END 
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—r-  CARGO  AND  LOADING  ANALYSIS  (C  &  LA)       . 

UP*TT      UNIT  DESCRIPTION   NUMBER    AND   NO.    BOUNDS      CUFT  WT(LB)         NO.         SQ        HT 

LINE  TYPE  GALLONS  LIFTS         FT 

NO.  \         CONTAINERS    RATI3NS.ETC. 


CU 
FT 


MOBILE    LOADEO 
WT(LB)         CUFT         WTCLB) 


WHERE 
STOWED 


13 

ATH1 

1 

.0 

•  0 

• 

•  0 

•  0 

.0 

•  0 

•  0 

.0 

13 

ATH1 

2 

•  0 

•  0 

. 

•  0 

.0 

.0   - 

•  0 

2.8 
3.U 

122.0 

13 

ATHl 

2 

•  0 

•  0 

• 

•  0 

.0 

.0  , 

.0 

86.0 

12 

ATH1 

2 

.0 

•  0 

• 

•  0 

•  0 

.0 

•0 

3.1» 

86.0 

12 

ATHl 

1 

•  0 

•  0 

. 

•  0 

•  0 

•  0 

•  0 

U.6 

98.0 

10 

ATHl 

1 

.0 

•  0 

• 

.0 

•  0 

.0 

•  0 

1*0.0 

10 

ATHl 

1 

•  0 

•  0 

. 

•  0 

•  0 

•  0 

.0 

^^^^SJ 

25.0 

10 

ATHl 

1 

•  0 

.0 

• 

•  0 

•  0 

.0 

.0 

1»S 

25.0 

8 

ATHl 

: ".,  1 

.0 

•  0 

. 

4.090.0 

360. C 

•  0 

•  0 

.0 

8 

ATHl 

u 

.0 

.0 

• 

•  0 

.0 

.0 

.0 

20.0 

228.0 

8 

ATHl 

6 

.0 

•  0 

. 

.0 

•  0 

•  0 

•  0 

36.0 

600.0 

8 

ATHl 

6 

.0 

.0 

. 

.0 

•  0 

.0 

•  0 

36.0 

600.0 
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SECTION  V 
PROGRAM  MOUNTOUT 

Purpose 

To  print  out  by  T/A  sequence  number  the  Table  of  Equipment  for 
an  Infantry  Regiment  broken  down  by  the  amounts  allowed  for  a  Rifle 
Company  (TE  1013) ,  Headquarters  and  Service  Company  Infantry  Battalion 
(TE  1037) ,  Infantry  Battalion  (TE  1038)  ,  Headquarters  Company  Infantry 
Regiment  (TE  1096)  and  Infantry  Regiment  (TE  1099) .   MOUNTOUT  also 
indicates  by  duplicate  T/A  number  following  the  first  listing  those 
items  which  are  Garrison  type  and  used  in  training  or  when  permanent 
installations  are  to  be  set  up. 
Input  Data 

A  T/A  input  tape  with  complete  updated  allowance  information  j_13^/ 
A  deck  of  T/E  cards  for  each  company  (TE  1013) ,  The  Headquarters  and 
Service  Company  (TE  1037)  and  The  Regiment  (TE  1096)  . 
Output  Data  Tapes 

None 
Restrictions 

None 
Methodology 

MOUNTOUT  processes  the  T/E  cards  for  an  Infantry  Regiment  and 
prints  out  a  Table  of  Equipment  by  T/A  number  broken  down  by  units 
making  up  the  Regiment.   The  following  phases  are  required: 
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1.  The  program  identifies  the  incoming  information  as  that 
of  a  Rifle  Company  (TE  1013) ,  Headquarters  *ud  Service  Company  Infantry 
Battalion  (TE  1037)  or  Headquarters  and  Service  Company  Infantry 
Regiment  (TE  1096).  After  making  thi*  determination,  it  identifies 
the  item  as  either  a  Garrison  type  item  or  not.   The  T/A  numbers  of 
Non-Garrison  items  are  stored  in.  a  list  and  the  quantity  of  that  item 
shown  on  the  card  is  stored  under  the  unit's  number;  1013,  1037  or  1096. 
If  the  item  is  a  Garrison  item  the  T/A  number  is  stored  in  a  separate 
Garrison  List  and  the  quantity  of  the  item  shown  on  the  card  is  stored 
under  Garrison  by  unit  number. 

2.   The  program  computes  for  each  T/A  number,  the  number  of 
allowed  items  for  the  Infantry  Battalion  (1038)  by  taking  the  quantity 
stored  under  the  Rifle  Company  (1013),  multiplying  it  by  four  (four 
Rifle  Companies  in  a  Standard  Infantry  Battalion)  and  adding  to  it  the 
1037  quantity  under  that  particular  T/A  number.   This  is  done  separately 
for  Garrison  and  Non-Garrison  items  and  the  results  are  stored  separately. 
See  Figure  9  for  this  relationship. 

3.   The  program  computes  the  Infantry  Regiment  allowance  (1099) 
in  the  same  manner  by  multiplying  three  times  the  (1038)  quantity  and 
adding  to  it  the  (1096)  quantity. 

4.   The  program  prints  out  a  Table  of  Equipment  for  the  entire 
Standard  Infantry  Regiment.   (The  computational  formulas  must  be 
changed  for  a  Non-Standard  Regiment.) 

Figure  10  shows  the  flow  chart  for  program  MOUNTOUT  and  Figure  10A, 
the  Fortran  '60  listing. 
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*  '• 


Input 

See  Appendix  A  for  card  input  format. 
Output 

The  output  written  by  MOUNTOUT  is  a  Table  of  Equipment  for  an 
Infantry  Regiment.  A  sample  of  which  is  shown  in  Figure  10B. 

COLUMN  INDICATES 

1  The  item  by  T/A  number 

2  The  quantity  required  by  the  Rifle 

Company  (1013) 

3  The  quantity  required  by  the  Head- 
quarters and  Service  Company  Infantry 
Battalion  (1037) 

4  The  quantity  required  by  the  Infantry 

Battalion  (1038) 

5  The  quantity  required  by  the  Head- 
quarters and  Service  Company  Infantry 
Regiment  (1096) 

6  The  quantity  required  for  the  Standard 

Infantry  Regiment  (1099) 

Garrison  items  for  the  same  T/A  number  item  (if  any)  are  listed  in 

the  same  order,  immediately  following  the  first  listing  of  the  T/A 

number. 

Timing 

Running  time  for  MOUNTOUT  is  approximately  2  minutes  and  30  seconds. 
Error  Messages 

If  the  T/E  card  is  not  1013,  1037,  or  1096,  the  word,  ERROR  is 
printed  out  in  the  T/A  number  column. 
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Data 

MOUNTOUT  data  was  punched  in  cards  from  Tables  of  Equipment   for 
components  of  an  Infantry  Regiment. 
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Figure  9 
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PRCGRAM  MGUNTCUT 
OD I  PENSION  LIST(500),NTA(500),N13( 5CC ) ,N37 ( 500 ) ,N38< 500 ) ,N96 ( 500) . 
lN613(500),N637(5C0),N628(500),N696t;5CC),N699(5C0),N99  ( 500.)  , NNI5C0) 
2,NTE(500),NCTY(5CO*),LISTG(5C0) 

CC  60  1=1, 1461 

NN(I)=0 

LIST( I )=0 

USTG(I)=0 

M3(I)=0 

N37(I )=0 

N38(I)=0  i 

N96(I)=0  i'l  '•"'■ 

N99(I)=0 

N613(I)=0  / 

N637( I  )=0  .  / 

N638(I)=0 

N696(I)=0 
60  N699( I)=0 

1  =  0 

READ  50, (NTE( J  ) , NTA ( J ) ,NCTY(J ) ,NN  ( J ) , J*1 , 461  ) 
50  FCRMATC5X, 14, I5,I5,5X,I1 ) 
100  1=1+1 

IF <I-fc61 )66,65,65 
66  IF(NTE(I  )-1013)l,l,2 

1  IF(NN( I)-l  )3,4,4 

3  LIST( I)=  NTA(I) 
N13U  )=NQTY(I) 
GC  TO  100 

2  IF(NTE(I )-1037)5,6,7 

5  GC  TO  UOO 

4  LISTGt I)=NTA( I) 
N613( I)=NQTY( I) 
GC  TO  100 

6  IF(NN(I)-1 )8,9,9 

8  LIST(I)=NTA( I) 
N37(I)=N0TY( I) 
GC  TO  100 

9  LISTG( I)=NTA( I) 
N637(I)=  NCTY  (I) 
GC  TO  100 

7  IF(NN(I)-1 )1 0,1 1,11 

10  LIST( I )=NTA(I ) 
N96(I )=NGTY( I ) 
GC  TO  100 

11  LISTG(I)=NTA( I) 
N696( I)=NGTY( I) 
GC  TC  100 

65  CC  35   1*1.461 

N38( I )=U»N13(I)+N37(I  ) 

N99U  )=3»N38<  D+N96C  I  ) 

N6  38(  I)=U»N613(I )+N637< I ) 
35  N699( I)=3*N638(I)+N69d< I) 

PRINT  9000 

9000  FORMATHHl  ,////) 
PRINT  9001 

9001  FCRPAT(25X2lHT/E  INFANTRY  REGIMENT) 
PRINT  70 

700F0RMAT(6X60HT/A  NUMBER      1013      1037      1038      1096 
1   1099) 
DC  UO   1  =  1, U61 

PRINT  41   LIST(I),N13(I ),N37( I),N38(I ) ,N96 ( I ) ,N99( I ) 
41  FCRMAT(6X,  15  ,  1  1  X,  I  4  .  5X,  I  »4,  5X,  14,5  X, 14 , 1 1 X  ,  14  ) 

PRINT  43,LISTG(I  )  ,N61 3 ( I  ) , N637( I)  ,N638< I ) ,N696( I )  ,N699(I)   * 
43  FCRMAT(6X,I5,1lX,I4,5X, I  M, 5X,  IU,5X, IU, 11 X, IU ) 
UO  CONTINUE 
UOO  PRINT  UOI.NTAU) 
U01  FCRMAT(6X, I5,5HERR0R) 
END 
END 


Figure  10A 
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SECTION  VI 
PROGRAM  TABLE 

Purpose 

To  print  out  the  USMC  Table  of  Allowances.  This  table  specifies 
Marine  Corps  furnished  items  of  material  authorized  for  issue  to  the 
Fleet  Marine  Force  and  provides  a  listing  of  items  for  which  allowances 
are  established  in  individual  units  or  activities  Table  of  Equipment. 
It  serves  as  a  source  of  allowance  information  for  CLASSES  1  -  IV, 
and  those  CLASS  II,  Type  2  items  which  are  authorized  for  Fleet  Marine 
Force  (FMF)  and  organized  Marine  Corps  Reserve  (OMCR)  units  on  an 
"as  required"  basis. 

CLASS  II  Type  1  supplies  consist  of  those  items  appearing  in  the 
Tables  of  Equipment  (T/E's).  The  allowances  eatablished  in  the  T/E's 
constitute  the  maximum  amount  of  an  item  authorized  to  be  on  hand.  No 
basis  of  distribution  is  shown  for  these  items  in  the  T/A.  The  items 
coded  "SP"  are  station  property  items  not  normally  authorized  for  the 
FMF  or  OMCR. 

CLASS  II  Type  2  supplies  consist  of  items  authorized  on  an  "as 
required"  basis.  These  items  do  not  lend  themselves  to  establishment 
of  firm  allowances  as  requirements  may  vary  due  to  assigned  missions, 
operations,  location  of  units  and  numerous  other  factors.  Units  will 
requisition  and  maintain  on  hand  only  those  Type  2  items  necessary  to 
meet  operational  requirements. 
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Input  Data 

A  deck  of  T/A  cards  for  all  items  listed  in  the  USMC  Table  of 
Allowances.   These  cards  will  show  that  T/A  number,  Stock  Number, 
Identification  Number,  Unit  of  Issue,  Standardization  and  Procurement 
Status,  Unit  Standard  Package  (the  quantity  of  an  item  contained  in  a 
standard  package),  Square  (square  feet  of  rolling  stock,  uncrated,  and 
assembled  with  normal  attachments) ,  and  Cube  (the  cubic  feet  of  the 
packed  or  crated  standard  package,  except  for  the  vehicles).   For 
vehicles,  the  Cube  entry  indicates  Cube  of  the  vehicle,  uncrated 
and  unassembled.   The  card  also  shows  Weight  (gross  weight  in  pounds 
of  the  standard  package) ,  Replacement  Factors  (the  estimated  per- 
centage of  the  equipment  in  use  that  will  require  replacement  during 

a  given  period),  Fuel  Type  for  all  fuel  burning  equipment  (gas,  diesel 

or  kerosene)  and  Rate  of  Consumption  of  fuel  in  gallons  per  hour. 

Fields  are  to  be  punched  in  cards  as  shown  in  Appendix  A. 

There  is  also  a  representative  sample  of  description  cards  which 

are  keyed  to  the  above  cards  by  the  T/A  number. 

Restrictions 

All  numbers  with  the  exception  of  T/A  number,  Stock  Number, 

Identification  Number  and  Unit  Standard  Package  must  be  punched  with 

a  decimal  point  as  indicated  in  the  program  comment  statements.   (See 

example  Figure  11A.) 

Methodology 

"TABLE"  reads  the  information  from  the  incoming  T/A  cards;  it 

classifies  each  T/A  number  and  its  associated  information  as  to  Class, 

Type  and  Technical  Classification.   The  Technical  Classifications  are 
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Electronics,  Engineer,  General  supply,  Motor  transport  and  Ordnance. 
The  T/A  numbers  are  grouped  in  the  following  serial  number  groups  in 
memory: 


CLASSIFICATION 


CLASS  II  TYPE  1 


Electronics 
Engineer 
General  Supply 
Motor  Transport 
Ordnance 


CLASS  II 

TYPE  2 

CLASS  IV 

12000 

82000 

13000 

83000 

14000 

84000 

15000 

85000 

16000 

86000 

20000-29999 
30000-39999 
40000-49999 
50000-59999 
60000-69999 

After  the  information  is  all  read  in  and  classified,  the  pro- 
gram prints  out  a  complete  Table  of  Allowance  with  appropriate 
headings  and  arranged  by  classes  of  supply. 

Figure  11  shows  the  flow  chart  for  program  TABLE  and  Figure  HA, 
the  Fortran  '60  listing. 
Input 

See  Appendix  A  for  card  input  format. 
Output 

The  output  produced  by  TABLE  is  the  Table  of  Allowances,  a 
sample  of  which  is  shown  by  Figure  11B.  A  complete  listing  occupies 
75  pages. 
Timing 

Running  time  for  TABLE  is  approximately  five  minutes  and  eight 
seconds. 
Data 

TABLE  data  was  punched  in  cards  from  USMC  Table  of  Allowances  fl3J, 
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PROGRAM  TABLE" 
C  TO  REPRODUCE  THE  T/A.  OAT*  C4RDS  MUST  BE  PUNCHED  AS  FOLLOWS-  T/A  NER 
C  COLS. 1-5,  STOCK  NBR  COLS. 6-16  (INCLUDING  DASHES)t  ID  NBR  COLS.  19-23, 
C  UNIT  OF  ISSUE  COLS.  24-25,  UMT  STD  PKG  CCLS.  26-29,  STD+  PROC  COLS. 
C  30-33,  NOTE-  DO  NOT  INCLUCE  CECIMAL  POINT  IN  THE  FOLLOWING  BUT  ASSUME 
C  IT  TC  BE  WHERE  SHOWN.  SO  COLS.  35-37  (XXX. XX),  CUBE  COLS.  M0-U5  ( XXXX. 
CXX),  WT  COLS.  5C-57  (XXXXXX.XX),  CA  C3LS  60-64  (XX. XX),  CT T  COLS  65-69 
C  (XX*XX),  T  COLS  70-75  (XX. XX),  TYPE  FUEL  USED  CQL.  76  (G,0,K),  GAL  PER 
C  HR  CCLS.  77-79  (XX. XX),  CCLS.  COL  80  HAS  A  CONTROL 

C   NUMBER  1-9  FOR  PROGRAM  CCNTPOL. 
PRINT  999 
9990FCRMAT( 1  Hi /////////////////////// //47X26HUNI TED  STATES  MARINE  CORP 
1S//U3X35HT  ABLE   OF   ALLOWANCE  S//49X2 1HSHCRT  TITLE-T/ 
2A,  USMC////10X15HREVISI0N  NO.  13  7MX 1 2HBLAND-HANSEN/1 OX 13HNAVMC  10 
317-DP  76X12HU.S.N.P.G.S. )  / 

DIMENSION  STKNBR(2),  CESC(6),  STKNBRT(2),  LIST(500) 
J  =  0 

NPAGE=0 
1  IF(J-79)  11,665,665 

665  PRINT  666 

666  FORMAT  (/   39X,  43HBL ANO/HANSEN   THESIS  -EMBARK-  1964  -  USNPGS    ) 

399  NPAGE=NPAGE*1 

400  PRINT  401.NPAGE 

.  401  FCRMAT(lHl,110X,  5HPAGE  ,  13) 
J  =  C 
110READ  12  ITANBR,STKNBR,DNER,UNISS,  ISTPKG, STPRCC , SQ,CU, WT,CA, CTT 

1  ,T, FUEL, GAL. NBRCRD 
120F0RMAT(I5,A8,A5,A5,A2,IU,A4flX,F3.Cf2X,F6.0t4X,F8.0,2X,3F5.0tlX, 

lAl.F3.0tIl) 
10  DNBRT=DNBR 

ITTANBR=ITANBR 
STKNBRT=STKNBR 
IF(  ITANBR-10999)54,5U,13 

13  IF(ITANBR-12999)83,83,14 

14  IF(ITAN8R-13999)84,84,15 

15  IF(ITANBR-1«4999)    85,85.16 

16  IF(ITANBR-15999)86,86,17 

17  IF(ITANBR-16999)87,87,18 

18  IF(ITAN8R-29999)88,88,19 

19  IF(ITANBR-39999)89,89,20 

20  IF(ITANBR-l40999)90,90,21 

21  IF(ITANBR-i4l999)91,91,22 

22  IF{  ITANBR-42999)92,92,23 

23  IF(ITANBR-l43999)93,93,2i4 
2U    IF(ITAN8R-U9999)94,9U,25 

25  IF(ITANBR-59999)95,95,26 

26  IF(  ITANBR-69999)96,96,27 

27  IF( ITANBR-79999)97,97,28 

28  IF(ITANBR-82999)98,98,29 
.29    IF(ITANBR-83999)99,99,30 

30  IFUTANBR-8U239)  100,  ICO, 21 

31  IF(ITANBR-8»4519)  101,101,22 

32  IFdTANBR-84999)  102,102,23 

33  IFUTANBR-85999)  103,  103,24 

34  IFUTANBR-86999)  104,  1C4.S00 

54  IF(10010-ITANBR)57,55,57 

55  NPAGE=NPAGE+1 
PRINT  56  NPAGE 
J=J+1 

560FCRMAT(1H1 ,110X,5HPAGE  ,I3/42X,35HT  ABLE   OF   ALLOW  ANC 
IE  S  ,//50X,20HGENERAL  SUPPLY  ITEM S//5 IX, 1 7HCLASS  1  -  RATIONS) 
PRINT  301  ■ 

J=J*5 

57  PRINT  58  ITANBR.STKNBR 
J  =  J*1 

58  F0RMAT(1X,I5,2X,A8,A5) 
3    N=1 

IF    (N-NBPCRD)    42,42. 3C2 

302  PRINT    303    DNBR.UNI SS.  ISTPKG, STPR3C , SQ.CU, WT.CA.CTT, T,  FUEL, GAL 

303  FORMAT  (1X.A5,49X,A2,  IX.  I*4,lX,Ai4,lX,F5.1,lX,F9.2,lX,F8.1,lXt 


FORMAT* 1X,A5,49X,A2,  IX. 
1  3F6.2,1X,A1,1X,F5.2) 

J*J+1 
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GC  TC  UO 
READ  45,  I 
FCRMATt 15, 
IFUTANBR- 
PRINT  47, 
J  =  J  +  1 

FCRKATtXll 
IF(DNBR-CN 
PRINT  49  D 
J  =  J+l 

FCRMATU11 
IF(N-NBRCR 
NERCRD=NBR 
PRINT  76, 
FORKATMX, 
J  =  J+1 
GC    TO    3 

390PRINT  77, 
1FUEL,  GAL 

770F0RKATMX, 
1    3F6.2,1 
J  =  J  +  1 

40  PRINT    41 
J=J+1 

41  FGRMATdXl 


42 
45 


47 

46 

5 

49 
48 
38 

76 


TANBR,  ONBR,  DESC 
A5,6A8) 

ITTANBR)'4,46,4 
ITANER,ITTANER 

H«»  ERROR  »•  XX  217) 
ERT)  5,48,5 
NBR,  ONBRT 

H*«  ERROR  «*  XX  2A5) 

0)38,39,900 

CRC-1 

CNBR,  DESC 
A5,2X,7A8) 


/. 


CNBR,    DESC.LNISS,     ISTPK 

A5,1X,6A8, 
X,A1  ,  1X.F5.2) 


A5,1X,6A8,    A2, IX,  14,1 


G,  STPROC,SC,CU,WT,CA,CTT,T, 
X,A4,1X,F5.1,1X,F9.2,1X,F8»1 


f]X 


1 


18H 


GC  TO  1 

83  IF ( 12010-1 
184  NPAGE=NPAG 

PRINT  185. 
1850FGRMATMH1 
IE  S//47X,2 
J  =  5 

PRINT301 
3010F0RKATC2X, 
1  2HCU,6X,3 
23X,2HID,55 
J  =  J+4 
GC  TO  57 

84  IF ( 13010-1 
186  NPAGE=NPAG 

PRINT  187. 
1870F0RMAT(lHl 
IE  S//48X.2 
J  =  5 

PRINT301 
J  =  J+4 
GC  TO  57 

85  IFM4005-I 
188    NPAGE=NPAG 

PRINT  189, 
1890FCRMAT(lHl 
IE  S//47X.2 
J  =  5 

PRINT301 
J  =  J  +  4 
GC  TO  57 

86  IF ( 15010-1 
190  NPAGE=NPAG 

PRINT  191, 
1910F0RMATMH1 
IE  S//44X,3 
J  =  5 

PRINT301 
J  =  J  +  4 
GO  TO  57 

87  IFU6010-I 
192    NPAGE=NPAG 

PRINT  193, 
1930F0RMAT(lHl 
IE  S//48X.2 
J*5 


TANBR)    57,184,57 
E*1 

NPAGE 
,110X,5HPAGE    ,I3/M3X,35 
6HELECTR0NIC    ITEMS    -    CL 


3HT/A.29X, 11  HOE SCRIPT  10 
lHfcT  CA  CTT  T 

X.8HPKG    PROC, 4SX.2HHR// 


TANBR)    57,ie6,57 
E+l 

NPAGE 
,110X,5HPAGE    ,I3/43X,35 
4HENGINEER    ITEfS   -    CLAS 


TANBR)  57,1E8,57 
E+1 

NPAGE 
. 110X.5HPAGE  ,  I3/M3X.35 
6HGENERAL  SUPPLIES  -  CL 


TANBR157, 19C.57 
E+l 

NPAGE 
,110X,5HPAGE  ,I3/43X,35 
iHMOTOR  TRANSPORT  ITEMS 


TANeR)    57.1S2.S7 
£♦1 

NPAGE 
,110X,5HPAGE    ,I3/l43X,35 
MHCRCNANCE    ITEPS    -    CLAS 


HTABLE      OF      ALLOWA 
ASS    2//57X.6HTYPE    2) 


N,T1X,2*4HISS      ST      STO         SG 

F      GAL/         / 
) 


HTABLE      OF      ALLOWA 
S    2//57X.6HTYPE   2) 


N   C 


N   C 


HTABLE      OF      ALLOWA 
ASS    2//57Xf6HTYPE    2) 


N   C 


HTABLE      OF       ALLOWA 
-    CLASS    2//57X,6HTYPE    2)     „, 


N   C 


HTABLE      OF      ALLOWA 
S    2//57X.6HTYPE    2) 


N   C 
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88 
19U 


89 
196 


90 
198 


PR 

J« 

GC 

IF 

NP 

PR 

1950FC 

IE 

J  = 

PR 
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GC 

IF 

NP 

PR 

1970FC 

IE 
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PR 

J  = 

GC 

IF 

NP 

PR 

1990FC 

IE 

2  - 

J  = 

PR 

J  = 

GC 

IF 

NP 

PR 

2010FC 

IE 

2SS 

J  = 

PR 

J  = 

GO 

IF 

NP 

PR 

2030FC 

IE 

2TY 

J  = 

PR 

J  = 

GC 

IF 

NP 

PR 

2050FC 

IE 

22 


91 

200 


92 
202 


93 
20U 


9U 
206 


PR 
J» 
GC 
IF 
NP 
PR 
2070F0 

J« 

PR 
J= 
GC 
IF 


95 


INT301 
J+U 
TO    57 
(20010-ITAN 
AGE=NPAGE*1 
INT    195,    NP 
RMATMHlfll 
S//47X.26HE 

INT301 

TO  57 
(30030-ITAN 
AGE=NPAGE+1 
INT  197,  NP 
RMATMH1.11 
S//48Xt2*iHE 

INT301 
J  +  U 

TO  57 
(U0010-ITAN 
AGE  =  NPAGE-H 
INT  199,  NP 
RMATdHl.11 
S//41X.38HG 

TYPE  1) 
5 
INT301 

TO  57 
(U1010-ITAN 
AGE=NPAGE+1 
INT  201,  NP 
RMATMHItll 
S//39X.U2HG 

2  -  TYPE  1 
5 
I  NT 301 

TO  57 
(U2010-ITAN 
AGE=NPAGE+1 
INT  203,  NP 

rmatTihV.ii 

S//U2X,35HG 

PE  1) 

5 

INT301 

TO    57 
(U3010-ITAN 
AGE=NPAGE+1 
INT    205,    NP 
RMATdHl  ,  11 
S//U0X,39HG 
-    TYPE    1 ) 
5 
INT301 

TO    57 
(UU010-ITAN 
AGE=NPAGE*1 
INT    207,    NP 
RMATdHl.11 
S//U2X.35HG 
YPE    1) 
5 
INT301 

J  +  *4 

TO  57 
(50010-ITAN 


eR)5>7,  19M.57 

AGE 

0X.5HPAGE    ,I3/U3X,35HT    ABLE      OF      ALLOWANC 

LECTRONIC  ITEMS  -  aASS  2//57X, 6HTYPE  1) 


BR)57, 196,57 

AGE 

0X,5HPAGE    , I3/U3X.35HT    ABLE      OF      ALLOWANC 

NGINEER    ITEfS   -   CLASS    2//57X.6HTYPE    1) 


BR)57,198,57 

AGE 

0X.5HPAGE    .I3M3X,  35HT    ABLE      OF      ALLOWANC 

ENERAL    SUPPLIES    -    INDIVIDUAL    CLOTH ING//5 2X 1 6HCLASS    2 


BR)57t20C,57 

AGE 

0X.5HPAGE    ,I3/U3X,35HT    ABLE      OF      ALLOWANC 

ENERAL  SUPPLIES  -  ORGANIZATIONAL  CL0THING//52X , 1 6HCLA 


BR)57,202,57 

AGE 

0X.5HPAGE    .I3/M3X.35HT    ABLE      OF      ALLOWANC 

ENERAL  SUPPLIES  -  CHEMICAL  W ARFARE//52X,  16HCLASS  2  - 


BR)57,20«4,57 

AGE 

0X,5HPAGE    ,  I3/U3X.35HT    ABLE      OF      ALLOWANC 

ENERAL  SUPPLIES  -  INDIVIDUAL  EQUIPMENT// 52X,1 6HCLASS 


BR)57,206,57 

AGE 

0X,5HPAGE    ,I3/U3X,35HT    ABLE      OF.    ALLOWANC 

ENERAL  SUPPLIES  -  GENERAL  ART ICLES//52X, 1 6HCLASS  2  - 


BR)57,208,57 
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208    NPAGE=NPAGE*1  ' 

PRINT    209,    NPAGE 
2090FCRNAT(1H1,110X,5HPAGE    ,  I3/M3X,  35HT    ABLE      OF      ALLOWANC 
IE    S//U9X.2  WOTOR*TRANSPCRT    ITEMS //52X, 16HCLASS    2    -   TYPE    1) 

J  =  5 

PRINT301 

J  =  J  +  U 

GC    TO    57 

96  IF(60010-ITANBR)57,21Ct57 
210  NPAGE=NPAGE+1 

PRINT    211.    NPAGE 
2110F0RMATC 1H1,110X,5HPAGE    , I 3/M3X, 35HT    ABLE      OF      ALLOWANC 
IE    S//53X,  114H0RDNANCE    ITEKS//52X,  1  6HCLASS    2   -    TYPE    1) 

PRINT301 

GC    TO    57 

97  IF(70010-ITANBR)  57,212,57 
212  NPAGE=NPAGE*1 

PRINT    213,    NPAGE 
2130F0RMAT(lHl,110X,5HPAGE    , I3/43X, 35HT    ABLE      OF      ALLOWANC 
IE    S//52X,15KFUEL      CLASS    -    3) 
J  =  3 

PPINT301 
J  =  J  +  U 
GC  TO  57 

98  IF(82010-ITANBR)57,21M,57 
214  NPAGE=NPAGE*1 

PRINT  215,  NPAGE 
2150FCRPAT(lHl  .110X.5HPAGE  ,  I3/M2X,  35HT  ABLE   OF   ALLOWANC 
IE  S//47X,26HELECTR0NIC  ITEMS  -  CLASS  «♦ ) 
J  =  3 

PRINT301 
J  =  J  +  U 
GC  TO  57 

99  IF(83010-ITANBR)57, 216,57 
216  NPAGE=NPAGE*1 

PRINT  217,  NPAGE 
2170FCRMAT(lHl,110X,5HPAGE  ,I3/43X,35HT  A  B  L  E   0  F   A  L  L  0  W  A  N  C 
IE  S//48X,2UHENGINEER  ITEMS  -  CLASS  M ) 
J=3 

PRINT301 
J  =  J  +  U 
GC  TO  57 

100  IF(84010-ITANBR)57,218,57 
218  NPAGE=NPAGE+1 

PRINT  219,  NPAGE 
2190FCRMAT(lHl,110X,5HPAGE  ,I3/43X,35HT  ABLE   OF   ALLOWANC 
IE  S//U3X,33HGENERAL  SUPPLY  -  GENERAL  ART ICLES//56X.7HCLASS  k ) 
J  =  5 

PRINT301 
J=J+4 
GC  TO  57 

101  IF(8U2U0-ITANBR)57, 220,57 
220  NPAGE=NPAGE*1 

PRINT  221,  NPAGE 
2210FCRMAT(1H1,11CX,5HPAGE  ,  I3/43X.35HT  ABLE   OF   AL  L  0  K  A  N  C 
IE  S//U1X,38HGENERAL  SUPPLY  -  COLO  WEATHER  CL0THING//56X, 7HCLASS  k) 
J  =  5 

PRINT301 
J=J+4 
GC  TO  57 

102  IF(8U520-ITANBR)57,222t57 
222  NPAGE=NPAGE*1 

PRINT  223,  NPAGE 
2230F0RMAT(lHl1110X,5HPAGE  .  I  3/M3X,  35HT  ABLE   OF   ALLOWANC 
IE  S//U1X.38HGENERAL  SUPPLY  -  COLO  WEATHER  SUPPL I ES//5 6X , 7HCLA5S  41 
J»5 

PRINT301 
J  =  J-*4 
GO  TO  57 

103  IF(85010-ITANBR)57,224,57 
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224  NPAGE-NPAGE+1  ' 

PRINT  225,  NPAGE 
2250FORMAT(1H1,110X,5HPAGE  , I 3/M3X.35HT  ABLE   OF   ALLOWANC 
IE  S//U0X.39HM0T0R -TRANSPORT  -  COLD  WEATHER  SUPPLI ES// 56X,7HCLASS  4 
2) 
J  =  5 
PRINT301 

GC  TO  57 
104  IF(86010-ITANBR)57,22d, 57 
226  NPAGE=NPAGE*1 

PRINT    227,    NPAGE 
2270FCRNATMH1  ,110X,5HPAGE    t  I3/*43X,  35HT    ABLE      OF      ALLOW    AN    C 
IE    S//48X.24HCRDNANCE    ITEPS   -    CLASS    4)  / 

J  =  3 

PRINT301 

J  =  J+4 

GC  TO  57 

L=0 
900  LIST(L)*ITANER 

L=L+1 

GC  TO  1 

500  PRINT  501, LIST 

501  FORNATdX,  10110) 

FINAL  PRINTOUT  IS  TANBRS  WITHOUT  A  CONTROL  NUMBER  IN  COLUMN  80 
END 
ENO 
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GENERAL    SUPPLY    ITEMS 

CLASS    1    -   RATIONS 
T/A  DESCRIPTION  ISS      ST      STO         SQ  CO  WT  CA  CTT  T         F      GAL/ 

10  PKG    PROC  >  HR 

10010      9110-263-9865  ■•-■  .  •     '                       -m                .    „ 

FUEL,    COMPRESSED,    TRIOXANE  SP  400                        .0                1.50              62.0         1.00         .00         .00   T         .00 

16626"  8970-5  77-4513 * '*' 

MEAL,    COMBAT,    INDIVIDUAL     .  SP  4                         .0                 1.10              24.0         1.00         .00         .00              .00 

\6636" 8970-1  9U-3986 "  .-  •  •••• 

RATION,    SMALL    DETACHMENT,    5-IN-1  SP  5                         .0                1.10             28.5         1.00         .00         .00              .00 

ioouo ••••*•  • 

RATION,    OPERATIONAL,    A  SP    1000  .0        6261.00    211800.0      30.00         .00         .00  .00 

RATION,    OPERATIONAL,    B  SP    1000  .        .0        3582.00    152460.0      30.00         .00         .00  .00 

l6060* " 8970-268-9934* "**""* " 

RATION    SUPPLEMENT,    SUNDRIES    PACK  SP      100  .0  1.90  47.0         1.00         .00         .00  .00 

\  .  ' 

--■•-..".  \ 


Figure  11  B 


70 


SECTION  VII 
FUTURE  DEVELOPMENTS 

The  programs  of  the  EMBARK  system  will  assist  greatly  in 
that  element  of  planning  involving  the  preparation  of  the  detailed 
embarkation  and  loading  plans.   Program  TABLE  will  produce  a 
current  Table  of  Allowances  as  a  ready  reference  for  embarkation 
planners,  and  program  MOUNTOU!  may  be  used  to  produce  the  Table  of 
Equipment  for  an  Infantry  Regiment,  if  required.   The  main  program 
EMBARKD  will  produce  the  unit  loading  forms  for  distribution  to 
Troop  Commanders,  and  after  being  consolidated,  these  forms  will 
be  incorporated  as  a  part  of  the  completed  loading  plan. 

Computers  can  assist  in  the  solution  of  other  planning  problems 
in  amphibious  operations.   Several  studies  have  been  made  and  are 
known  to  the  authors.  As  one  example,  The  Stanford  Research  Institute 
has  developed  a  procedure  for  simulating  amphibious  deployment 
operations  as  a  part  of  a  study  of  problems  involved  in  the  world-wide 
deployment  of  the  Marine  Expeditionary  Force  in  cold  and  limited-war 
situations./ 12J.   The  simulation  model  developed  is  called  MARADS, 
and  has  been  designed  to  reduce  the  amount  of  effort  required  to 
analyze  amphibious  assault  operations.   The  model  will  account  for 
all  the  major  events  in  the  deployment  process  from  the  time  a 
decision  is  made  to  move  troops  through  movement  to  port  or  beach, 
embarkation,  movement  to  the  objective  area,  and  projection  of  the 
forces  ashore.   Included  in  the  MARADS  model  are  programs  for: 

1.  The  efficient  organization,  storage  and  retrieval  of  data 
regarding  equipment,  personnel,  supplies,  organizations,  ships  and 
transfer  vehicles. 
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2.  The  conversion  of  simple  identifying  organizations  into 
detailed  listings  of  personnel,  equipment  and  supplies. 

3.  The  allocation  of  personnel,  equipment  and  supplies  to 
subforces  to  transfer  vehicles. 

4.  The  simulation  of  the  ship-to-shore  operation,  including 
the  computation  of  the  number  of  transfer  vehicles  needed  by  type. 

5.  The  computation  of  the  number  of  ships  by  type,  required 
to  transport  the  forces  and  vehicles. 

6.  The  computation  of  key  times  throughout  the  entire  deploy- 
ment and  assault  operations. 

The  authors  believe  that  computers  can  be  used  profitably  in 
at  least  two  other  areas  of  planning.   First,  it  is  a  fact  that 
digital  computers  will  be  available  on  the  larger  ships  of  any 
amphibious  task  force  in  the  future;  there  are  presently  a  signifi- 
cant number  of  ships  in  the  fleet  with  computer  installations,  and 
more  are  scheduled  to  be  outfitted  with  them. 

The  first  problem  to  which  we  shall  address  ourselves  is  the 
possibility  of  a  change  in  the  conditions  at  the  objective  area, 
or  even  a  change  in  the  objective  area  itself  subsequent  to  loading, 
but  prior  to  the  initial  landing.   This  would  require  a  revision  in 
the  unloading  plan,  and  here,  the  computer  can  make  a  significant 
contribution.   With  the  information  of  the  MARADS  and  EMBARK  systems 
the  computer  could  be  interrogated  as  to  the  best  unloading  sequence 
available  to  support  the  new  landing  plan,  aid  could  test  a  great 
number  of  alternatives.   If  better  alternatives  were  available  they 
could  be  listed  in  order  of  preference,  or  if  the  change  of  conditions 
made  the  landing  unfeasible,  this  also  could  be  determined. 
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The  next  possibility  for  computer  use  would  be  to  determine 
the  best  revised  sequence  for  landing  units  and  equipment  if  the 
scheme  of  the  manuever  ashore  changes  the  initial  landing.   In  the 
immediate  future  the  means  will  be  available  for  the  shore  party  to 
relay  by  electronic  signals, (e.g. ,  microwave  transmissions)  new  data 
to  the  computer  aboard  the  ship  in  the  task  force.   The  computer  will 
take  this  new  data  and,  after  processing  it,  come  up  with  alternative 
assignments  of  units  and  equipment  to  meet  the  changing  situation 
ashore.   Of  course,  to  be  able  to  do  this,  the  computer  must  be  con- 
tinually fed  information  as  to  which  units  have  been  unloaded  and  the 
status  of  each  unloading  vehicle. 

It  will  be  possible,  in  the  near  future,  for  the  Amphibious  Task 
Force  Commander  and  the  Landing  Force  Commander  to  have  some  means  of 
visual  display  of  information  received  from  the  computer.   This  will 
enable  the  commanders  to  request  the  status  of  the  unloading  at  any 
time,  and  to  determine  when  a  particular  piece  of  equipment  or  unit 
can  be  expected  on  the  beach.   The  computer  can  also  be  programmed 
to  forecast  the  time  the  unloading  will  be  completed  considering 
the  progress  made  up  to  the  time  it  was  interrogated. 

The  ability  to  achieve  this  flexibility  in  the  conduct  of 
amphibious  operations  is  of  great  value  to  the  Landing  Force  Commander. 
Using  computers,  the  alternative  courses  of  action  can  be  determined 
in  a  short  time,  to  assist  in  making  sound  decisions  that  increase 
the  possibilities  of  a  successful  landing. 
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SECTION  VIII 
APPENDIX  A 
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1.   INPUT  PREPARATION 

Figure  12  illustrates  the  worksheet  entries  for  the  four 
leading  cards  required  as  input  with  every  T/E  deck.   The  detailed 
card  formats  for  these  leading  cards,  the  T/E  cards,  and  the  T/A 
cards  are  outlined  in  the  remainder  of  Appendix  A. 

In  the  worksheet  of  Figure  12,  card  1  contains  the  Organization 
Number,  Name  and  Hull  designation  of  the  assigned  embarkation  ship, 
the  date  cards  were  received  by  the  Embarkation  Team  Commander  and 
the  identifying  letters  T/E.   The  second  card  gives  the  classifi- 
cation of  the  documents  (Top  Secret,  Secret,  or  Confidential)  and  the 
identifying  letters  T/E.   The  entries  on  the  third  card  indicate  the 
number  of  days  of  ammunition  required,  the  number  of  hours  of  fuel 
required,  the  number  of  rations  (meals)  required,  the  T/A  number  of 
the  rations,  the  number  of  gallons  of  water  per  man  per  day  required 
and  the  identifying  letters  T/E.   The  fourth  card  contains  a  break- 
down of  the  personnel  in  the  unit.   It  shows  the  unit  number,  number 
of  generals,  colonels,  lieutenant  colonels,  majors,  captains, 
lieutenants  (first  and  second),  warrant  officers,  master  sergeants, 
staff  non-commissioned  officers,  other  enlisted  men  and  the  identifying 
letters  T/E. 
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A  variety  of  card  formats  are  used  for  input  to  the  EMBARK  system, 
they  are: 

Leading  Cards  •*-  (see  worksheet  1,  Figure  12) 


Card  1 


Card  2 


Card  3 


CARD  COLUMNS 
1-5 
6-10 
11  -  42 
43  -  50 
51  -  58 
59  -  72 
73  -  75 


CARD 

COLUMNS 

1 

-  5 

6 

-  21 

22 

-  72 

73 

-  75 

CARD  COLUMNS 

1  - 

5 

6  - 

10 

11 

12  - 

16 

17  - 

21 

22  - 

72 

73  - 

75 

CONTENTS 
Organization 
Blank 

Ship  Description 
Blank 

Date  of  Embarkation 
Blank 
T/E 

CONTENTS 
Blank 

Classification 
Blank 
T/E 

CONTENTS 

Day  of  Ammunition 

Hours  of  Fuel 

Quantity  of  Rations 
(number  of  meals) 

T/A  number  of  Rations 

Quantity  of  Water 
(gal Ions /man/day) 

Blank 

T/E 
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Card  4 


CONTENTS 
Blank 

Number  of  Generals 
Number  of  Colonels 
Number  of  Lt.  Colonels 
Number  of  Majors 
Number  of  Captains 
Number  of  Lieutenants 
Number  of  Warrant  Officers 
Number  of  Master  Sergeants 
Number  of  other  Staff  NCO 
Other  Enlisted 
Blank 
T/E 

CONTENTS 
Organization 
T/E  Number 
T/A  Number 
Quantity  Allowed 
Blank 

Garrison  Item 
Vehicle  Registration  Number 


Note:   1.   All  numbers  will  be  punched  in  fixed-point  form,  right 
justified. 
2.   Garrison  items  are  indicated  by  a" 1" punched  in  column  25, 


CARD 

COLUMNS 

1 

- 

9 

10 

- 

14 

15 

- 

19 

20 

- 

24 

25 

» 

29 

30 

- 

34 

35 

* 

39 

40 

- 

44 

45 

- 

49 

50 

= 

54 

55 

- 

59 

60 

- 

72 

73 

- 

75 

T/E  Cards 

CARD 

COLUMNS 

1 

- 

5 

6 

- 

9 

10 

- 

14 

15 

- 

19 

20 

- 

24 

25 

30 

D 

37 

77 


T/A  Cards    First  Card 

COLUMNS  CONTENTS 

T/A  Number 

Federal  Stock  Number 
Identification  Number 
Unit  of  Issue 
Standard  Package 
Square  Feet 
Cubic  Feet 
Weight 

Combat  Allowance 
Combat  Training  Allowance 
Training  Allowance 
Type  of  Fuel  (G,  D,  or  K) 
Fuel  Consumption  Rate/Hr. 
Control  Number 
Second  Card  (For  those  items  showing  description) 
COLUMNS  CONTENTS 

1-5  T/A  Number 

6-9  Identification  Number 

10  -  72  Description 

Note:   1.   Numbers  for  T/A  stock  number,  identification  number,  unit 
of  issue  and  standard  package  will  be  in  fixed -point  format,  all  other 
numbers  will  be  floating-point  format,  to  two  decimal  places. 

2.  Control  numbers  will  be  1  -  9  for  program  control;  this 
control  number  indicates  the  number  of  description  cards  following 
this  T/A  card. 
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1 

-  5 

6 

-  18 

19 

-  23 

24 

-  25 

26 

-  34 

35 

-  39 

40 

-  49 

50 

-  59 

60 

-  64 

65 

-  69 

70 

-  75 

76 

77 

-  79 

80 

Class  V  Cards 

COLUMNS  CONTENTS 

1-3  Line  Number 

4-12  DOD  Ammunition  Code 

13  -  16  Basic  Allowance 

17  -  20  Combat  Assault  Expenditure 

Rate 

21-24  Extended  Operations 

25  -  28  Ashore  Expenditure  Rate 

29  -  31  Rounds,  Primer,  etc. 

32  -  34  Fuzes 

35  -  37  Extra  Fuzes 

38  -  41  Quantity  per  Package 

42  -  45  Weight  per  Package 

46  -  49  Cube  per  Package 

50-52  Remarks 

53  -  55  Line  Reference  Number 

56-59  T/E  Number 

60  Blank 

61  -  62  Individual  Allowance 
63-75  Blank 

76  -  80  T/A  Number 

Note:   1.   Numbers  for  line  number,  DOD  ammunition  code,  basic 
allowance,  quantity,  remarks, line  reference  number,  T/E  number, 

individual  allowance  and  T/A  number  will  be  in  fixed-point  format. 
All  other  numbers  will  be  floating-point  form  to  a  maximum  of  two 
decimal  places. 
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SECTION   IX 
APPENDIX  B 
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1.   GENERAL  OPERATING  INSTRUCTIONS 
CONTROL  CARDS 

Each  T/E  deck  must  be  followed  by  a  card  with" 99999" punched  in 
columns  5  through  9.  After  the  last  T/E  deck  and  prior  to  the" 99999" 
card  must  be  a  card  with" 98 765" punched  in  columns  5  through  9. 
TAPE  ASSIGNMENTS 

The  following  are  the  required  tape  assignments: 
Tape  #1  -=  Fortran  *60  Monitor 
Tape  #2  —  BCD  Input  ("I") 
Tape  #3  *-  T/A  Binary  Data  Tape 
Tape  #4  «  Scratch  Tape  ("S") 
Tape  #5  —  BCD  Output  ("0") 
OPERATION  OF  1604 

The  "three -argument  monitor"  control  is  used  with  the  normal 
Fortran  '60  Monitor.  After  loading  the  tapes  as  indicated  above, 
type  on  the  typewriter  the  following:   "Monitor,  2,  5,  4."  This 
option  provides  approximately  30,000  cells  of  memory  for  the  program 
and  data.   Other  combinations  of  tape  assignments  may  be  used,  but 
the  Fortran  Monitor  selects  as  scratch  tape  the  lowest  available 
unassigned  tape  unit.   For  this  reason,  it  is  important  to  remove  the 
lockout  ring  from  the  Binary  Data  Tape  to  preclude  overwriting  of 
data. 

The  general  form  of  the  console  statement  is: 

"Monitor,  I,  0,  S."   (Punctuation  imperative) 
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Modus  Operandi:   (After  loading  tapes) 

1.  Push  Auto-Load  button 

2.  Type  "Monitor,  I,  0,  S." 

3.  Tape  "I"  is  read  and  compilation  performed. 

4.  During  compilation  the  Fortran  statements  of  the  program 
are  copied  on  Tape  "O'1 . 

5.  When  compilation  is  complete ,  the  object  program  is  written 
in  Binary  on  Tape  "SH.   This  tape  then  is  rewound  and  the 
program  is  read  back  into  memory  beginning  at  address, 
4000  (octal) . 

6.  The  program  then  reads  in  the  Binary  Data  Tape,  the  1st 
T/E  from  tape  "I",  and  writes  out  the  UCM,  7S&PT,  UP&TT 
and  C&LA  for  the  T/E  #1. 

7.  If  more  than  one  T/E  is  used,  steps  7  and  8  are  repeated 
until  T/E  decks  are  exhausted. 

8.  When  the  "..END"  card  is  sensed,  the  program  stops  and 
"..end"  is  typed  on  the  typewriter. 

9.  Listings  are  printed  off-line  on  the  IBM  1403. 
AVAILABILITY  OF  DATA  TAPES  AND  PROGRAMS 

Data  tapes,  system  program  cards  and  data  cards  are  available 
from  the  United  States  Naval  Postgraduate  School  Computer  Facility 
Library. 
2.  MINOR  SUBROUTINE  LISTINGS  ON  FOLLOWING  PAGES. 
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SUBROUTINE  WUCM 


NBR(1750), ISTCPKGt 17 
(1750), GAL( 1750), DES 
Y(420),  MLO(»420 
(331) ,XFUS(231 ),QTYV 


DIMENSION  ITA 

CA( 1750) .FUEL 

UMT(420)  ,  IQT 

PRIM(331 ) . FUS 

LNREF(331 )  , 

SCUV(50),CUUPT(39),WTUPT(39), 

SHIP(U). 

CLASS ( 


2),NTOV(331 ),NTAV(33 
XLD(  1CC),KTA(100 
SUM(7),NEN( 13),TEMP(6),S 


COMMON 
UNIT,  I 
LNREF, 
CUUPTT 
CATE,S 
LINE,N 
EQUIVA 
(NEN(3 
(MEN (6 
(MEN(9 
(MEN( 1 


1 
2 
3 
it 
5 
6(FLAGS 


ITANER 
QTY,EG, 
BACU,BA 
,WTUPTT 
HIP, ORG 
PAGE, XL 
LENCE  ( 
),M05), 
),M01), 
),ME5), 
2)  ,MET) 
(F 
(3), FLA 


,ISTDP 
MLD,LN 
WT,DOA 
,STCNS 
, CLASS 
D,KTA. 
MEN( 1  ) 
(MEN(U 
(MEN(7 
(MEN(  1 
,(MEN( 
LAGS(  1 
G3),(F 


KG,SQ 
,  B  A ,  C 
WT,CO 
,XTON 
,NTOV 
K1,  I  I 
MC7) 
,MC4 

Kf'w) 

0  )  .  M.E 
13), M 
),FLA 

LAGS( 


50),SQ( 1 750 ), CU ( 1 750 ),WT( 1750), 
C(  1750)  ,NTE(U20),NTA  (1*20), 
),LN(33l),BA(331),D( 331), 
(331 ),WTV(331 ).CUV(331 ), 

ITAVC50) ,SWTV(50), 


1). 

), 

TKNBR(2) ,W0ESC(6),FLAGS(U) 


,MC7)  . 
)  ,M04) 


,CU,W 
,PRIM 
ACU,  I 
S,SCU 
,NTAV 
,JJ,C 
(MEN 
,  (ME 
.(MEN 
1),  (M 
TOT), 
G),(F 
H),FL 


T,CA 
,FUS 
TAV, 
PT38 
,N1, 
RATS 
(2). 
N(5) 
(8), 
EN(1 

LAGS 
AGU) 


,FUE 
,XFU 
SWTV 
,SCU 
NO,M 
,NRA 
MC6) 
,M03 
ME7) 
1),M 

(2), 


L,GAL,DESC,NTE,NTA* 

S,QTYV,WTV,CUV, 

,SCUV,CUUPT,WTUPT, 

PT39,D0A,HRSFUEL, 

1,KV,LL, 

TS, SUM, MEN, FLAGS 

I. 

GT), 

FLAG2), 


L  =  LL 

IF(LINE-80) 
19  LINE=0 
PRINT  99 
PRINT  102 
LINE=LINE  +  l4 
9  ICT=IQTY(II) 
DO  7  1=1, ICT 
SCU=0. 
SV<T=0. 
SC  =  0. 
HT  =  0. 
HCU=0. 
HfcT=0. 
XNCU=0. 
XMWT=0. 
NC=NC+1 
C  =  NO 

IF  (FLAGU) 
XMCU=CU(0) 
XNWT=WT(0) 
GO  TO  56 
IF(MLD(II ) 
IF(SQ( JJ) ) 
IF130000-ITAN 
IF(39999-ITAN 
IF(50000-ITAN 
IF(69999-ITAN 
IF  (WT(JJ)-IG 
FWT=WT( JJ) 
HCU=CU(JJ) 
GO  TO  56 
IF  (SQ(JJ)  )  U 
HT=CU(JJ)/SQ( 
SC=SQ(JJ) 
GC  TO  1 
IF  (WT(JJ)-IC 
XMCU=CU( JJ) 
XMWT=WT( JJ) 
GC  TO  56 
SCU=CU(JJ) 
SWT=WT(JJ) 
PRINT  57  L,C, 
FCRMAT(2X, 13, 
10) 


9,19,19 


32 


31 

18 
11 
13 
16 
17 
1 


56 
57 


32,31,31 


)  1 
17, 


♦  M.3 
JJ) 


0.)  5,5,6 


DESC( JJ),SCU.SWT,SQ, 
F8.0,3X,A8,l40X,F6.1, 


HT,HCU.HWT,XMCU,XMWT 
F8.1,F6.0,F5*1,F7.1,F8.0,F7,1,F8. 
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SUK(l)*SUM<mSCU 

SLM(2)=SUM(2)+SWT 

SUM(3)=SUM(3)+SG 

SLNU)=SUMU)4HCU* 

SUM(5)=SUM(5)+HWT 

SUM(6)=SUM(6)4XMCU 

SUM(7)=SUM(7)+XMKT 

LINE=LINE+1 

IF(FLAGU)  60,61,61 

60  FLAGU=1. 
GC  TO  27 

61  IFUINE-80)  7,58,58  I 
58  PRINT  80  CLASS 

80  FCRNATt 105X.2A8   , /UOX, 32HBLAND/H ANSEN  THESIS  -EMBARK-  196**    ) 
99  FORMATdHl  ,1X,1UHUP*TT   EOX  NBR  ,U  X,l*HDESC  ,U3X,  1UHSTANDARD  CARGO," 
16X,1UHUNITIZEC  CARGO ,  10X , 6HM0BILE , /I  X , 6HLIN  N0.87X. 
211HHEAVY  LIFTS, 1 IX. 6HLCACED/66X ,UHCUFT, 3X, 7H  WT(LB)  3 X, UHSCFT.3X, 
32HHT,2X,UHCUFT,3X,2HWT,5X,UHCUFT,  3X,6HWT(LB) ) 
PRINT  102 
LINE=U 
7  CONTINUE 
102  FORMAT  C120H • , 


1 


) 


PRINT  103  SUN 

103  F0RMAT(50X1UHLINE  TOTALS    ,F6. 1,  F8. 1 ,F6.0,F5. 1 ,F7.1,  F8.0fF7. 1 ,F8. 
10) 
SCUPT38  *  SCUPT+SUMSQ4SCLPT38 
PRINT  102 
27  RETURN 
END 


ft"? 


SUBROUTINE  RATIONS 

OD I  PENSION    ITANBR(1750),ISTCPKG(17  5C),SG( 1 750 ) ,CU( 1750 ) ,WT ( 1 75C ) ♦ 
1CAM750)  .  FUEL  (175t)),  GAL  (  1750  )  ,DES  C  (  1750  )  .NTE  (  U20  )  ,NTA  (l<20  )  , 
2UMTU20),  IQTYU20)  ,  MLD ( 420 ) ,LN (33 1 ) , BA ( 331 ) ,D( 33 1 ) , 

3PRIM(331 ),FUS(331),XFLS(331),GTYV(331 ),WTV(331 ),CUV(3  31), 
4LNREF(331),  ITAV(  50)  ,  SWTV.(5C  )  i 

5SCUV(50) ,CLUPT(39),WTLPT(39), 
6SHIP(U). 

7  CLASS(2),NT0V(331  ),NTAV(331 ), 

8  XLO(  1CC),KTA<100 ), 

9  SUM (7), PEN ( 12),TEMP(6),STKNBR(2) ,  WDESC ( 6 ) , FL AGS (U ) 

OCCMMON    ITANER,ISTDPKG,SC,CU,WT,CA,FUEL,GAL,DESC,NTE,NTA, 
UNIT, IQTY,EG,MLD,LN,BA,D,PRIM,FUS,XFUS,QTYV,WTV,CUV, 
2LNREF,BACU»BAWT,COAWT,C0ACU, I TAV,  SWTV , SOU V, COUP t ,WTUP T, 
3CUUPTT,WTUPTT,STCNS,XT0NS,SCUPT28,SQUPT39,D0A,HRSFUEL, 
4CATE,SHIP,CRG,CLASS,NTCV,NTAV,N1,  N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA, Klf lit  J J ,CRATS , NRATS, SUM,MEN,FLAGS 

ECUIVALENCE  ( MEN ( 1 ) . MC7 ) . ( MEN ( 2 ), M06 ) . 

1  (MEN(3),M05),  (MEN(4),NC4),(MEN(5)  ,MC3), 

2  (MEN  (6),  MOD  ,  (MEN(7).NW)  ,  (MEN  (  8  ).  ME7  )  , 
3(NEN(9),ME5) . ( MEN( 10 ) .ME  1 ) , (MEN( 1  1  ),MOT), 
4(MEN(12),MET),(MEN( 13),MT0T), 

5  ( FLAGS ( 1), FLAG), (FLAGS (2),FLAG2), 

6(FLAGS(3),FLAG3),(FLAGS(4),FLAG4) 

scu=o. 

SWT=0. 
SC  =  0. 
HT  =  0. 
HCU=0. 
HUT=0. 
XMCU=0. 
XMWT=0. 
KK  =  1 

1  IF(NRATS-ITANBR(KK) )    4,3,2 

2  kk=KK+1 
IF(7-KK)4,1, 1 

3  X=MTOT 
JJ  =  KK 

Y=ISTDPKG(KK) 
Y=Y*CA(KK) 
C=CRATS»X/Y 
CU(0)=C*CU(KK) 
WT(0)=C»WT(KK) 
CUUPT(1)=CU(C) 
WTUPTC1 )=WT(0) 
FLAG4=-1. 

CALL  WUCM 
CALL  WATER 
CALL  WUCM 

4  END 
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SUBROUTINE  WCANDLA 

OD I  MENS  I ON    ITANBR(1750),ISTDPKG( 17 5C  ) , SQ ( 1 750 ) , CU( 1750 ) ,WT(175C)t 
1CA(  1750)  .FUEL  (  1756)  ,G*L(  1  750 ) .DESC ( 1 750 ) .NTE ( U20)  ,NTA(U20)  , 
2UNITU20),  IQTYU20),  MLD  (  M20  )  ,  LN  {  33  1)  .6 A  (  331  )  ,D(  33  1 )  , 

3PR  IK(331 ),FUS(331),XFUS(231),QTYV(331 ),WTV(331 ),CUV(3  31), 
ULNREF(331),  ITAV ( 50)  , SKTV ( 5C ) , 

5SCUV(50) ,CLUPT(39) ,WTLPT(39), 
6SHIP(4), 

7  CLASS(2),NTOV(231 ),NTAV(331), 

8  XLC(  100),KTA( ICO ) , 

9  SLM(7),MEN(13),TEMP(6) ,S TKNBR(2 ) , WDESC ( 6) , FL AGS(4 )   ' 

OCOMMON  ITANBR, ISTDPKG , SQ ,CU, WT, CA , FUEL, GAL ,DESC, NTE ,N TA, 
lUNIT,ICTY,EGfHLD,LN,BA,D,PRIMfFUS,XFUS,QTYVtWTVtCUV, 
2LNREF,BACU,BAWT,C0AWT,D0/CU, ITAV, SWTV , SCUV.CUUPT, WTUP T, 
3CIUPTT,WTUPTT,ST0NS,XTCNS,SCUPT38,SQUPT39,D0A,HRSFUEL, 
4 DATE, SHIP, ORG, CL ASS, NTCV ,NTAV ,N 1,  NC,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1,II, JJ, QRATS ,NRATS, SUM, KEN, FLAGS 

EQUIVALENCE  (MENU )  .  MC7  )  ,  (  MEN  (2  ).  M06  )  . 
1  (MEN(3),M05), (MEN(U).NCU), (MEN( 5)  , NC3  ) , 
2(MEN(6),M01) , (NEN(7).KW).(MEN(8),ME7), 
3(KEN(9).ME5), (MEN(10),NE1 ),(MEN(1  1 ),MOT), 
4(NEN( 12) ,MET) , (MEN( 13),MT0T), 

5  (FLAGS( 1 J.FLAG), (FLAGS (2),FLAG2), 

6(FLAGS(3),FLAG3)  ,(  FLAGS  ( *4 ),  FLAGU) 
IF(LINE-80)  9,19,19 
19  LINE=0 
PRINT  99 
PRINT  102 
LINE=LINE+M 
9  IGT-IQTY(II) 
DC  7  1=1 ,ICT 
SCU=0. 
SWT=0. 
SG  =  0. 
HT  =  0. 
HCU=0. 
HWT=0. 
XMCU=0. 
XNWT=0. 
NC=N0+1 
C  =  NO 

IF(MLDUI) ) 18.18.17 
IF(SQ( JJ) ) 17,  17,  18 
18  IF(30000-ITANER( J J ) )1  1,27,17 
11  IF(39999-ITANBR( JJ) )13,27,27 
13  IF(50000-ITANBR( JJ)  )16,27,17 
.16  IF(69999-ITANBR( JJ) )17,27,27 
17  IF  (WT(JJ)-ICOOO.)  2,1,1 

1  HfcT=WT(JJ) 
HCU=CU(JJ) 
GC  TO  156 

2  IF  (SQ(JJ)  )  U.U.3 

3  HT=CU( JJ)/SC( JJ) 
SG=SQ(JJ) 

GC  TO  1 
k    IF  (WT(JJ)-ICG.)  5,5,6 

5  XMCU=CU( JJ) 
XMKT=WT(JJ) 
GC  TO  156 

6  SCU=CU(JJ) 
SWT=WT(JJ) 

GLIFTS  =  C  *  KT(JJ)  /  10C00. 
NCCNT  -    ISTDPKG( JJ)«ICTY(II) 

156  L=LL 

PRINT  157  L,UNIT( II ),CESC(JJ), IQTY( II ) , SCU, SWT, QUI FTS ,SQ.HT,HV»Tf 

1 XVPH  y mut 

157  FORMAT (IX, 15 , A8 , A8 , 5X , 15 , 1 12, F8 .1 , F 10 . 1 ,   2F6.0,F7. 1,  F8.1,F11.0) 
SUM(1  )=SUM(  1  WSCU 

SUM(2)=SUM(2)*SWT 

87 


58 


SU 
SU 
SU 
SU 
SU 
PS 
PS 
PS 
PH 
PH 
PX 
PX 
LI 
IF 
PR 
PR 
PS 
PS 
PS 
PH 
PH 
PX 
PX 
PR 
FC 

211 

32H 
99  FO 

1  7 

2 

3 

U 

5 

6 


80 


7 
102 


1 


PR 
LI 
CC 
FC 


M3)=SUM 
M4)=SUM 
M(5)=SUM 
M (6)=SUM 
M7)=SUM 
CU=PSCU+ 
WT=PSWT+ 
C=PSC+SQ 
CU=PHCU+ 
WT=PHWT+ 

mcu=pxmc 

NWT=PXNW 
NE=LINE+ 
(LINE-80 
INT  102 
INT  203 
CU=0. 
WT=0. 
C=0. 

cu=o. 

UT  =  0. 
NCU=0. 
KWT«0. 
INT    80    C 
RPAT(105 
HHEAVY    L 
HT,2X,4H 
RtfATt IX, 
1HCUFT 
WHERE 
IX, 
1H 
STOWED 

1XX 
INT     102 

NE  =  U 

NTINUE 

RMATU20 


(3)+SQ 

(H)'*HCU 

(5)+HWT 

(6)+XMCU* 

(7)*XMWT 

SCU 

SWT 

HCU 

HWT 

U+XNCU 

T+XMWT 

1 

)    7,58,58 

PSCU,PSWT,PSQ,PHCU,PHWT,PXMCU,PXMWT 


LASS 
X.2A8 
IFTS, 
CUFT, 
U6HUP 
WT( 
/ 
»46HLI 

/ 

U9HNC 


,/U0X,32HBLAND/HANSEN    THESIS    -EMBARK-    1964  ) 

11X.6HL0ACED/66X,UHCUFT,3X,7H    WT(LB)    3 X ,4HSQFT ,3X, 
3X,2HWT,5X,i4HCUFT,  3X,6HWT(LB)  ) 

+TT      UNIT       DESCRIPTION    NUMBER    AND    NO.    ROUNDS,       ,2X, 
LB)  NO.  SQ        HT         CU  WT(LB)         CUFT         bTUB) 


NE 


LIFTS 


FT 


FT 


TYPE 


GALLONS 


,2X 


CONTAINERS    RATIONS, ETC. 


202 

203 

204 

27 


IF 
PR 
PR 
FO 
FO 
RE 
EN 


(Ml-II ) 

INT    203 

INT    204 

RMATMX, 

RMATMX, 

TURN 

D 


202,202,27 

PSCU,PSWT,PSC,PHCU,PHWT,PXMCU,PXMWT 

SUM 

11HPAGE  TOTALS, 30X,F8.1 , F10.1,   2F6 .0.F7. 1,  F8. 1 ,F1 1 .0 ) 

12HGr>ND  TOTALS, 29X, F8. 1.F10.1,   2F6.0.F7.1 , F8. 1 ,F1 1 .0 ) 


- 1 
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SUBROUTINE  kATER 

OD  I  PENSION  ITANBRM750),  ISTDPKG{  17 5C  ) , SQ( 1 750 )  ,CU(  1750  )  ,  WT  ( 1  75  C  )  t 
1CA  (  1750)  . FUEL (1750), GAL ( 1750) ,DESC( 1750) ,NTE( 420 ).NTA (420), 
2UNIT(420), IQTY(420) ,       MLD  (  U20  )  ,LN  (  33  1) ,  BA  (  331  )  ,D(  33  1  )  , 
3PRIM(331  ),FUS(331),XFUS(231),CTYV(331  ),WTV(331 )• CUV (3 31), 
4LNREF(331),  IT AV( 50) , SWTV (5C ) , 

5SCUV(50) ,CLUPT(39),WTLPT(39), 
6SHIP(4), 

7  CLASS(2),NTOV(231  ),NTAV(331 ), 

8  XLD(  100),KTA(100 ), 

9  SIM (7), PEN ( 13) ,1EMP(6),STKNBR(2),*DESC(6),FLAGS<4) 

OCCMMON    ITAI\eR,ISTDPKG,SG,CU,WT,CA,FUEL,GAL»DESC,NTE,NTA,  j 

1UNIT, IQTY,EG,MLD,LN,BA,C,PRIM,FUS,XFUS,QTYV,WTV,CUV, 
2LNREF,BACU,BAWT,C0AWT,C0ACUtITAV, swtv,scuv,cuupt,wtupt, 
3CUUPTTtWTUPTT,STCNS,XTCNS,SCUPT38,SQUPT39,D0A,HRSFUEL, 
4DATE,SHIP,CRG,CLASS,NTCV,NTAV,Nl,  N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1,H , J J,QRATS , NRATS, SUM, MEN, FLAGS 

ECUIVALENCE  {  MEN  (  1  )  .  MC7  )  .  (  MEN  (  2  ),  M06  )  . 

1  (MEN(3),M05) , (MEN(4),NC4), (MEN (5)  , MC3), 

2  (MEN  (6),  MOD  ,  (MEN(7).  NW),  (MEN  (8),  ME7), 
3(MEM9),ME5)  ,  (MEM  10)  .ME1),  (MENU  1  ),MOT), 
4(MEN(12) ,MET),(MEN( 13),MT0T), 

5  ( FLAGS ( 1), FLAG), (FLAGS (2),FLAG2), 

6(FLAGS(3),FLAG3),(FLAGS(l*),FLAGU) 

SCU=0. 

SWT=0. 

SC=0.  *      ' 

HT  =  0. 

HCU=0. 

HV*T  =  0. 

XMCU=0. 

XMWT=0. 

KK=1 

TCT=MTOT 

WTUPT(2)=    TCT«H20/10. 

CUUPT(2)=    TGT«H2C/6. 

1  IF(51030-NTE(KK))17,3,2 

2  KK=KK+1 
IF(I-KK) 17,1,1 

3  C=IQTY(KK) 
X=MT0T 
G=F20*X 
G=G-(Q«400.) 

17    K  K  K= 1 

4  IF(ITANBR(KKK)-NTE(KK))5,6,8 

5  KKK=KKK+1 
IF(N-KKK)8,»4,l4 

6  XMCU=400.»8.«C    - 
IF(G)7,7,8 

o     K  K  —  1 

11  IFU4250-NTE(KK)  )7,  10,9 
9    KK=KK+1 

IF(I-KK)7, 11,11 
10     K  K  K= 1 

14  IF( ITAN8R(KKK)-NTE(KK))12,13,13 

12  KKK=KKK+1 
IF(NI-KKK)     13,14,1*1 

13  G=IQTY(KK) 
G=G-(Q*5.) 
G=G-(X/4.) 
IF(G)7,7,15 

15  C*-G 
SCU=CU(KKK)«C 
SWT»WT(KKK)«50. 

7  ENO 
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SUBROUTINE  ECUIP 

OC I  MENS  ION  ITANBRM750),  ISTDPKG(  17  5C),SQ(  1750  )  ,CU  (  1750  ),  WT  ( 1  750)  ♦ 
1  CM  1750)  ,  FU EL  (17?0),GAL(  1750)  ,DESC(  1750)  .NTEU20)  ,NTA  (U20)  , 
2UITU20)  ,  ICTY1420),       MLD(»4  20  )  .LN  (331  )  •  BA(  331 )  tD(  33  1 )  • 
3PRIM(331  ).FUS(33D,XFL'S(331  ),CTYV  (331  ),WTV(331  )  ,CUV  (3  31  )t 
ULNREF(331),  ITAV( 50)  , SWTV (50  )  , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 
6SHIPU), 

7  CLASS(2),NTOV(231  ),NTAV(331 ), 

8  XLD(  1CC),KTA(100 ), 

9  SUM (7), MEN (  13) , T EMP ( 6 ) ,S TKNBR (2 ) , WDESC ( 6 ) , FL AGS (4 ) 

OCCMMON  ITANBR,ISTDPKG,SQ,CU,WT,CA,FUEL,GAL,OESC,NTE,NTA, 
1UNIT, IQTY,EG,MLD,LN, BA,D,PRIM,FUS , XFUS,QTYV, WTV.CUVi 
2LNREF,BACU,BAWT,D0AWT,CCACU»ITAV,  SWTV  ,  SCUV.CUUPT, WTUP T, 
3CUUPTT,WTUPTT,STCNS,XT0NS,SGUPT38,SCUPT39,D0A,HRSFUEL , 
4DATE,SHIP,CRG,CLASS,NT0V,NTAV,Nl,N0,Ml,KV,LL, 
5LINE,NPAGE,XL0,KTA,  K  1 ,  I  I  , J J, G RATS  ,  NRATSt  SUM,  MEN, FLAGS 

EQUIVALENCE  (MEN( 1 ) ,MC7) . (MEN  (2).  MO  6) . 

1  (MEN(3),M05),  (MENU),MC4),(MiEN(5)  ,M03), 

2  (MEN  (6),  MOD  ,  (MEN(7),MW)  ,  (MEN  (  8  ),  ME7  )  , 
3(MEN(9),ME5)?(MEM10),ME1),(MEN(11  ),MCT), 
4 (MEN (12) ,MET), ( MEN ( 1 3  )  , MTOT  ) , 

5  ( FLAGS ( 1  ),FLAG), ( FLAGS ( 2 ) , FLAG2) , 

6(FLAGS(3),FLAG3),(FLAGS(l<),FLAGU) 

READ    1    ORG.SHIP.CATE 

1  FGRMAT(A5,5X,l4A8,8X,Ae) 
READ    2    CLASS 

2  FCRMAT(5X,2A8) 

READ    3    DCA,HRSFUELfCRATSfNRATS,H20 

3  FCRMAT(F5.0,F5.0,F1.0, I5.F5.0) 

READ  UUU      M071M06,MC5,M0**,M03,  MC1,MW,ME7,ME5,ME1 
4U4  FCRMAT(9X,    1  C  I  5) 

MCT=M06+M05+MCU+M03+MC1+MW4M07 

MET=ME7+ME5+ME1 

MTCT=MCT+MET 

1=1 
500    READ    1*    UNIT( I  ),NTE( I),NTA( I  ),  ICTY( I),EG,MLD(I) 
U    FCRMAT(A5,  IU.I5,  I5,5X,F1.0,«4X,A8) 

IF(NTA(I 1-987  65)876,8  75,676 

875  FLAG=-1. 

876  IF(NTA(I J-99999 ) 5,9,9 

5  IF(EG)    6,6,500 

6  1=1+1  i 
GG    TO    500 

9    M1=I-1 
END 
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SUBROUTINE   CLJSSV 

.      OD I  PENSION    ITANRR(1750),IST0PKG(17  5C),SG( 1 750 ) ,CU( 1750 )» WT { 1 75C ) , 
1CA( 1750) , FUEL ( 1750  ),G*L(  1750) ,DESC( 1750) , NTE ( M20 ) , NTA (U20), 
2UMKU20)  ,  ICTY(U20),  MLD  ( *4 20  )  ,LN  (  33  1  ) ,  BA ( 331 )  ,D( 33 1 ) , 

3PRIM331  ),FUS(331),XFLS(231),CTYV(331 ) , WTV( 33 1 ) ,CUV(3 3 1 ) , 
ULNREF(331),  ITAV ( 50)  , SWTV<50 ) t 

5SCUV(50) ,CLUPT(39)fWTUPT(39), 
6SHIPU). 

7  CLASS(2),NTOV(331  ),NTAV(331), 

8  XLD(  ICC)  ,KTA(100 ), 

9  SLM(7),NEN(  1  3  )  ,  T  EMP  (  6  )  ,S  TKNBR  (  2  )  ,  WDESC  (  6  )  ,  FL  AGS  («♦ ) 

OCCNMON    ITANBR,ISTDPKG,SQ,CU,WT,CA,FUEL,GAL,OESC,NTE,NTA, 
1UNIT,IQTY,EG,MLD,LN,B/>,C,PRIM,FUS,XFUS,QTYV.WTV,CUV,       ' 
2LNREF,BACU,BAbT,C0AWT,EC/SCU,  IT/W,  SWTV  ,  SCUV.CUUPT ,  WTUP  Tt 
3CUUPTT,WTUPTT,ST0NS,XT0NS,SQUPT33,SCUPT39,D0A,HRSFUEL, 
4CATE,SHIP,CRG,CLASS,NTCV,NTAV,N1, N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,Klf  1 1 , JJ,QRATS , NRATS, SUM, MEN,FLAGS 

EQUIVALENCE    (MENU ) ,MC7 ) , ( MEN ( 2  )• MO 6  )  . 
1  (KEN(3),M05),  (MEN(U),NCi4  ),  (MEN (5)  ,M03), 
2(NEN(6),M01 ) , (MEN(7),NW) .(MEN (8), ME7), 
3(MEM9),ME5). (NEN( 10) ,NE1), (MEN (11 ),MOT), 
MMENM2)  ,MET),(MEN(  13),MT0T), 

5  (FLAGS( 1 ),FLAG) , ( FLAGS ( 2 ) , FLAG2) , 

6(FLAGS(3),FLAG3),(FLAGS(l<),FLAGU) 

CO    500    K=1,5C 
SUTV(K)=0. 
500    SCUV(K)=0. 
K=l 

CC    506    J=1,M1 
00    506    1=1,331 

IF(NTAV( I)-NTA( J) )506, 502,506 
IF(NTOV( I)  )    5C3,503,5C2 

502  IF(NTE(J)-NTCV(  I  )  )    506,5C3,506 

503  IF(QTYV(  I  )  )506,506,50»4 

IF  (LNREF(D)  504, 50U, 511 

511  CC  512  L=l  ,331 
CO  512  IT=1,331 
IF(LN(L)-LfSREF(IT)  )  512,513,512 

513  C=IGTY(J) 

EACU=BA(L)*PRIM(L)*CUV(  IT)*Q+BACU 
BAWT=BA(L)*PRIM(L)*WTV( IT )*C+BAWT 
DCAWT=C(L)»PRIM(L)*WTV( IT )»COA        +DOAWT 
CCACU=C(L)«PRIM(L)«CUV( IT)»COA        4D0ACU 

512  CONTINUE 

SOU    BC=BA(I)/GTYV(I) 

FAC=1.  +  PRIM  I)+FUS(  IUXFUS(I) 

BAfcT         =(B£WT         +BQ«G  »WTV( I)  )«FAC 

EACU         =(BACU         +BC»C  *CUV( I) ) *FAC  • 

CCAWT  =(CCAWT         +D(  I ) «EQ*WTV(  I)  )*FAC»DOA 

COACU         =(COACU         +C( I)*EQ»CUV( I) )«FAC»DOA 

ITAV(K)  =  NTM  J) 

IF  (LN(I)-20)  516,516,505 

505  ShTV(K)=BAWT+CCAWT 
SCUV(K)=BACU+CCACU 

K  =  K+1  ■;■ 

GC  TO  515 
516  KLP=51-5 

SWTV(KUP)=BAWT+DOAWT 

SCUV(KUP)=EACU+DOACU 
515  BACU=0. 

BAWT=0. 

DCAHT=0. 

OCACU=0. 

506  CONTINUE 

KV=K-1 

WTUPT(29)=0. 

CUUPT(29)=0. 
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CUUPT(30)=C. 
WTUPT(30)=0. 
CO    520    K  =  l  ,KV 


520 
521 


522 


CO    520    K  =  l  ,KV 

CUUPT{30)=CUUPT(30)+SCUV(K) 

WTUPT(30)=WTUPT(30)4SWTV(K) 

K  =  5C 

CUUPT(29)  =  CUUPT(2<mSCUV(K) 

WTUPT(29)«V»TUPT(29)+SV<TV(K) 

K*K-1 


IF    (SWTV(K)) 

ENO 


522,522,521 


i: 
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SUBROUTINE  PETRCL 

OD  I  PENSION    ITANPR(1750),ISTDPKG(  17 5C  )  ,SG( 1 750 ) ,CU( 1750 ) , WT ( 1 75C ) , 
1  CM  1750)  .FUEL  (  1750i  ,  GAL  (  1750  )  ,CES  C  (  17  50  ),  NTE  (  U2  0  )  ,NTA  U20  )  , 
2UMTU20),  IQTYU20)  ,  MLD  U20  )  ,  LN  (  33  1  )  ,  BA  (  331  )  ,D(  33  1  )  , 

3PRIM(331 ).FUS(331),XFUS(231 ) , GTYV ( 33 1  ) , WTV( 331  ),CUV(3  31) , 
ULNREF(331),  ITAV( 50) , SWTV (50) , 

5SCUV(50) ,CLUPT(39),WTUPT(39), 
6SHIPIU). 

7  CLASS(2),NTOV(231 ),NTAV(33 1 ), 

8  XLC(  1C0),KTA(1C0 ), 

9  SUM(7),NEN( 13), TEMP( 6  )  ,S TKNBR ( 2 ) , fcQESC ( 6 ) ,FLAGS(U)  * 

OCCKMON    ITANBP,ISTDPKG,SC,CU,WT,CA,FUEL,GAL,DESC,NTE,NTA,/ 
1UNIT, IQTY,EG»MLDfLN,BA,C»PRIM,FUS  , XFUS,QTYV, WTV,CUV, 
2LNREF,BACU,BAWT,  00AWT,CO£CU,  ITAV,  SWTV , SCUV.CUUPT, WTUP T, 
3CUUPT T,WTUPTT,STONS,X TONS, SGUPT 38, SGUPT39,D0A, HRSFUEL, 
UDATE,SHIP,CRG,CLASS,NTCV,NTAV,N1,  NC,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 , 1  I , J J, Q RATS , NR ATS, SUM, KEN, FLAGS 

ECU  I  VALENCE    (MENU  ) .  MC7  ) ,  (  MEN  (  2  ),  M06  )  . 
1  (NEN(3),MC5)  ,  (MEN(l»lfKGIlIt  (MEN(5)  ,MC3), 
2(NEN(6),M01) , (NEN(7).NW) , (MEN (8),  ME7) , 
3(PEN(9).ME5), (MEN( 10) .KE1 ), (MENU  1 ),MOT), 
4 (MEN (12), MET) ,(MEN( 13),KT0T), 

5  (FLAGS(  1),FLAG),(FLAGS(2),FLAG2), 

6(FLAGS(3),FLAG3),(FLAGS(M),FLAGU) 

GAS  =  0. 

DSL  =0. 

CERC  =  0. 

G  =6720202020202020 

C1=6U20202C20202020 

XK=U22C202C20202C20 

DC  1  1=1, Ml 

C=ICTY(I) 

IF(FUEL( I)-G)  2,  U,  2 

2  IF(FUEL( I )-Cl  )  3,5,3 

3  IF(FUELd)-XK)  1,  6,  1 

4  GAS  =  GAL(I)  «  Q  «  HRSFUEL  4  GAS 
GO  TO  1 

5  DSL  =  GAL(I)  •  Q  •  HRSFUEL  4  DSL 
GC  TO  1 

6  CERP  =  GAL(I)  *  C»HRSFUEL  4  CERP 

1  CONTINUE  I 

CERO  =  CERP+(GAS4DSL)«.0C5  I 

CAGR  =  7.5*(GAS+DSL) 

DRGAS  =  GAS/53. 

DRDSL  =  DRCSL/53. 

DRCERO  =  CERC/53. 

DRCAGR  =  OAGR/53. 

WTGAS  =  DRGAS*376. 

WTDSL  =  DRCSL»»430. 

fcTCERO  =  DRCERC«UOO. 

WTCAGR  =  DR0AGR«500. 
.  SCGAS  =  DRGAS*1|.  , 

SCDSL  =  DRCSL*i4. 

SGCERC  =  DPCERO«U. 

SCCAGR  =  DROAGR  *  «*.  ? 

CUGAS  =  DRGAS«11. 

CUDSL  =  DRDSL»1 1 . 

CUCERC  =  DRCERC«1 !• 

CUCAGR  =  DRGAGR«11« 

SCUPT38    =    (SCGAS4SQDSL4SCCER04SQ0AGR)/2« 

CUUPT(25)=CUGAS4CUCERC 

fcTUPT(25)*WTGAS4WTCERC 

CUUPT(26)*CUCSL4CU0AGP 

WTUPT(26)=WTCSL4WT0AGR 

IF(FLAG2)    7,8,8 

7  CUUPT(27)  =  CUUPT(25)  4  CUUPT(26) 
WTUPT(27)  *  WTUPT(25)  4  WTUPT(26) 
GO    TO    9 
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L  =  27 

SC  = 

HCU 

HWT 

C  = 

HCU 

HfcT 


SCUPTZ8 
=  CUUPT(27) 
=  WTUPT(27) 
HWT/10COC. 
=  CUUPT(27)/Q 
=  10000. *C 


57 
9 


PRINT  57  L,C,SCfHCU.HUT 
FCRMAT(2X,I3iF8.0f 65X,F6.0,5X,F7.  1,F8.0) 
RETURN 

ENC 
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